
1、 打开一个Access数据库软件,可以看到数据库左边的文件目录,鼠标左键单击【表格】选项。
2、 接着,在左边目录文件中,鼠标左键选择好表格,并双击,在右边窗口中显示出表格中的数据。
3、 然后,在数据库的表格窗口上,给表格添加数字型的字段,并输入数字,用于合计的数据。
4、 接着,鼠标左键选择菜单下的【合计】按钮。
5、 然后,在表格中显示出合计的行,鼠标左键在合计的列上,可以看到统计的下拉列表,选择【合计】的选项。
6、 最后,在表格中的,可以看到数值的字段出现合计的数据了。
实现的方案是多种多样的,请根据实际需求进行设计。下面提供一个设计方案供参考:'先编写自定义求和函数
Private Function sumTwoNums(Num1 As Single,Num2 As Single) As Single
Dim Num As Single
Num=Num1+Num2
Num=Round(Num,2) '四舍五入保留2位小数
sumTwoNums=Num
End Function
'编写命令按钮单击事件过程,将文本框1和文本框2中的数字和,显示到文本框3中
Private Sub Command1_Click()
If Not IsNumeric(Text1.Value) Then
MsgBox "请在文本框1输入一个正确的数字"
Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Value) Then
MsgBox "请在文本框2输入一个正确的数字"
Text2.SetFocus
Exit Sub
End If
'调用求和函数,显示运算结果到文本框3
Text3=sumTwoNums(Text1+Text2)
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)