DATAGRID中选中一行？

Question

Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DataGrid1.Row = DataGrid1.RowContaining(Y)  ‘选中点击的当前行，并把当前行的数据赋给text控件显示！
Text1.Text = DataGrid1.Columns(1).Text       
Text2.Text = DataGrid1.Columns(2).Text
Text3.Text = DataGrid1.Columns(3).Text
Text4.Text = DataGrid1.Columns(4).Text
Text5.Text = DataGrid1.Columns(5).Text
End Sub

Answer 1

同意 一楼说的和MSHFLEXGRID一样的

Answer 2

msflexgrid有一个selectionmode属性
   问你是否选中整行或整列或自由选取
   0----------flexselectionfree
   1----------flexselectionbyrow
   2-----------------------bycolumn
不知能不能达到你的要求

Answer 3

youhao(勇攀高峰) 
我给你解除bug!
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if DataGrid1.RowContaining(Y)<>-1 then
DataGrid1.Row = DataGrid1.RowContaining(Y)  ‘选中点击的当前行，并把当前行的数据赋给text控件显示！
Text1.Text = DataGrid1.Columns(1).Text       
Text2.Text = DataGrid1.Columns(2).Text
Text3.Text = DataGrid1.Columns(3).Text
Text4.Text = DataGrid1.Columns(4).Text
Text5.Text = DataGrid1.Columns(5).Text
end if
End Sub