好像是 dim a as string dgrid1.col=1 '你的列数 a=dgrid1.text msgbox a 记不清了,你试试。
可以编一个选取行列值的函数! 选行列时可以用sql select 语句查询,不知是不是?
dgrid1.col dgrid1.row dgrid1.text
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DataGrid1.Row = DataGrid1.RowContaining(Y) '得到第一列的值 MsgBox DataGrid1.Columns(0).Text End Sub
dim a as string
dgrid1.col=1 '你的列数
a=dgrid1.text
msgbox a
记不清了,你试试。
选行列时可以用sql select 语句查询,不知是不是?
dgrid1.row
dgrid1.text
DataGrid1.Row = DataGrid1.RowContaining(Y)
'得到第一列的值
MsgBox DataGrid1.Columns(0).Text
End Sub
fg.col=i '
str=fg.text