Private
Sub gduser_dblclick()
' 数据列表双击事件
Dim introw As Integer
introw = gdUser.Row ' 得到当前行
With gdUser
txtUser.Text = .TextMatrix(.Row, 2)
txtPass.Text = .TextMatrix(.Row, 3)
End With
End Sub
' 数据列表双击事件
Dim introw As Integer
introw = gdUser.Row ' 得到当前行
With gdUser
txtUser.Text = .TextMatrix(.Row, 2)
txtPass.Text = .TextMatrix(.Row, 3)
End With
End Sub
'MSHFlexGrid 控件名称为:gdUser