关于datagrid数据控件的问题，捆饶很久了~~

xyy_82216

vba中，选中datagrid中的一条记录，怎么把这条记录的每个字段分别属给象应的变量！！比如说，被选中的这条记录的第一个字段属给x1 第二个字段属给y1。。。。。。怎么做呢，请高手们帮帮忙，小弟在此谢过了。。。

xinghesnak

对datagrid控件不甚了解，紧紧知道能这样得到数据。

Private Sub Command1_Click()
    
    DataGrid1.Row = 1    '定位DataGrid1行
    DataGrid1.Col = 1    '定位DataGrid1列
    MsgBox DataGrid1.Text'取得1984
    
End Sub

如果先选择行再得到数据就不知道了，得向高手请教了！不过多说一句，这个控件不是很好用，只能绑定数据库。不如MSFlexGrid控件顺手。。。。。。。

xinghesnak

dynacy

这个问题我在VB中是利用了Listbox控件解决的，想必你对这个通用控件要熟悉的多吧。先把每个字段的值读到列表框里，然后，你就可以用它的属性list来取得数据拉

dim rs2 as recordset

Set rs2 = db.OpenRecordset("设计线数据") '表名
Do While Not rs2.EOF
    frmwll.List3.additem rs2.Fields(1).Value
   frmwll.List4.additem rs2.Fields(2).Value
   frmwll.List5.additem rs2.Fields(3).Value
    frmwll.List15.additem rs2.Fields(4).Value
   frmwll.List16.additem rs2.Fields(5).Value
   frmwll.List17.additem rs2.Fields(6).Value
   frmwll.List18.additem rs2.Fields(7).Value
   rs2.MoveNext
Loop
rs2.Close

比如你取第一个字段的第三个值，则可用list3.list(2)取到。

xyy_82216

谢谢朋友们，我是这样解决的

Private Sub DataGrid1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)

x1 = Val(DataGrid1.Columns.Item(1))

end sub

就是点选一行，当鼠标释放的时候，把里面每个字段属给一个变量，这些变量去全局变量，这样就可以在其它过程中用这些变量了，我不知道这样对不对，不过我在实验的过程中，都能把相应的值给取出来，然后属给一个变量，这样也能利用取出的值画图了~~

这样可以么？

wyj7485

这种很好用

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataStr = DataGrid1.Text'获得鼠标点的数据

n=DataGrid1.Row'获得该数据行号

m=DataGrid1.col'获得该数据列号

End Sub