datagrid进行某列计算并在文体框显示的方法

【文件属性】：

文件名称：datagrid进行某列计算并在文体框显示的方法

文件大小：366B

文件格式：TXT

更新时间：2016-09-08 09:46:28

vb

rivate Sub Command1_Click() Dim sum As Double 'sum就是所有的和 sum = 0 '先给赋值为0 Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF '从开始一直到结尾,累加 sum = sum + Adodc1.Recordset.Fields("材料成本") Adodc1.Recordset.MoveNext Loop Text1.Text = Str(sum) '保存到text1中去 Adodc1.Recordset.MoveFirst End Sub