如何在datagrid控件中得到某一行(一条记录)的全部数据? 用这一行的一个字段(类似索引)作为条件进行查询,这个字段的值在数据库中所有记录应该是唯一的,每个记录的这个字段都不相同select * from test where ………………msgbox rst.field(0)msgbox rst.field(1)…………这样就读取每一个字段值 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当前行的某一列的值: s1:=dbgrid1.Fields('该列对应的表中字段名').AsString; s2:=dbgrid1.Fields('该列对应的表中字段名').AsString; ....s1,s2...就是该行的全部数据了! Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) dim i as long DataGrid1.row = LastRow for i=0 to datagrid1.Columns.Count -1 Debug.Print DataGrid1.Columns(i) ' Next i end sub 建议你用mshflexgrid你那些功能用mshflexgrid特别容易 在datagrid的Clicked或RowColChanged事件中添加如dary1715的代码 在datagrid中的Click事件中先判断单击的是哪一行,再用楼上几位提供的方法得到数据。 有datagrid_selchange(cancel as integer)可以用啊 VB,怎样跳过文本文件的特定行? VB 如何获得Mysql服务器的日期时间? 用VB6.0语言,某文件夹内有10个TXT,如何把他们都读取到一个textbox当中去? 存储为透明PNG图片 RS出错 VB对硬件操作的问题,大家过来帮一下小弟。 如何发布程序? vb 的事务处理为何偶然出错? 如何使文本框里的内容上下滚动,就像电影里的字幕那样。 有关测试SQL Server数据库的连通状态的一些疑问 第一届趋势百万程序竞赛征集队友 请问编程如何实现唤醒处于休眠状态的计算机?
s1:=dbgrid1.Fields('该列对应的表中字段名').AsString;
s2:=dbgrid1.Fields('该列对应的表中字段名').AsString;
....
s1,s2...就是该行的全部数据了!
dim i as long
DataGrid1.row = LastRow
for i=0 to datagrid1.Columns.Count -1
Debug.Print DataGrid1.Columns(i) '
Next i end sub
你那些功能用mshflexgrid特别容易