VB DataGrid1控件求和问题

如何计算出进货价格该列的总和代码求完整简单。
求和结果显示到text1.text中

第1个回答推荐于2016-08-14

If Not Adodc1.Recordset.EOF Then '//抛出异常
For i = 1 To Adodc1.Recordset.RecordCount Step 1 '//按记录集合循环
sum=sum+ Adodc1.Recordset.Fields("name") 'name 换成你的数据库价格字段
Adodc1.Recordset.MoveNext '//游标下移
Next i
End If本回答被提问者和网友采纳

相似回答

VB6.0中DataGrid1控件问题答：Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Dim frow, fcol As Integer frow = DataGrid1.Row fcol = DataGrid1.Col Text1.Text = DataGrid1.TextEnd Sub

vb中的SELECT查询问题答：1、使用聚合函数sum(),可以对单列进行求和计算：Adodc1.RecordSource="select sum(需要求和的字段名) as 统计结果"2、在表中添加新的数据 Adodc1.RecordSource="select * from 数据表"With Adodc1.Recordset .AddNew .Fields("字段1") = Text1.Text .Fields("字段2") = Text2.Text .Fields("...

VB的DataGrid用法?答：1.为您希望访问的数据库创建一个 Microsoft 数据链接 (.UDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题，以获得一个示例。2.在窗体上放置一个 ADO Data 控件，并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。3.在这个 Ado Data 控件的 RecordSource 属性中输...

如何实现VB中用DataGrid控件显示数据?答：VB利用DataGrid控件显示数据库中数据信息，DataGrid在数据库数据显示的时候非常重要，它在用户操作舒适度及数据排列方面有独到之处，对于Vb数据库编程的用户来说，掌握DataGrid的使用是至关重要的事情。参考实例如下：Public cnn As adodb.Connection Public rst As adodb.Recordset Public Sub setdb()Set cnn...

vb问题 怎么使用datagrid1控件最左上角的格子的内容阿答：这个控件是与数据库连接的,那就就直接取数据库的字段值不就行了,你要第一行的,那就把DATA1的数据记录movefirst Data1.Recordset(0)就是这个单元格的内容了.看来您还是不明白,这么跟您说吧 DATA1与datagrid1进行数据绑定了,对吧那么当您点击datagrid1的记录时,DATA1中的数据库游标也跟着就动了,...

vb6.0中怎样更改DataGrid控件上显示的数据,通过重写Recordsource和刷新Ad...答：您好，Adodc1.Recordset.Update Adodc1.Refresh 要3秒刷新的话加个time控件 Timer1.Interval 设置成 3000 Private Sub Timer1_Timer()Adodc1.Recordset.Update Adodc1.Refresh End Sub 但要告诉你，如果你要3秒刷新的话你还没来得及改就刷新了，你的这个思路有点问题，一般修改过后在刷新比较好。

VB中datagrid控件的datasource属性答："select ..."rs.Open sql,conn rs.CursorLocation = adUseClient set datagrid1.datasource = rs adodc控件我没用过.你问set datagrid1.datasource = rs中的set的意思?VB中,Set对“对象数据”（Object、Control）类型赋值 set datagrid1.datasource = rs就是将rs绑定给datagrid1.datasource ...

在vb中datagrid控件怎样分页?为什么我的datagrid的属性中没有allowpag...答：1、在form链接20个记录，设计一个过程（例如shjklj（）过程），在过程中由SQL语句链接20个记录，但这个20是指ID的多少到多少（比如ID>=A AND ID<=B)，在form过程中A=1 B=20 2、下一页的过程：A=A+20 B=B+20 CALL shjklj 3、上一页的过程：A=A-20 B=B-20 '判断是否小于0的处理 ...

vb中的datagrid 控件如何增加列数?答：datagrid1.VisibleRows 返回一个整数,其范围从 0 到 DataGrid 控件的 Rows 属性所设置的行数。VisibleRows 属性包含全部或部分可见的 DataGrid 控件行本回答由电脑网络分类达人朱冬梅推荐举报| 答案纠错 | 评论 0 6 du瓶邪采纳率:92% 来自团队:百度知道电脑团擅长: 电脑/网络生活电子数码其他...

大家正在搜

VB基本控件 VB表单控件 VB常见的控件有哪些 VB编程控件 VB电子表格控件 Excel 求和 vb列表框控件 vb输入控件 vb控件大全