Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If LastRow Then Exit Sub End If Text1.Text = DataGrid1.Columns(0) Text2.Text = DataGrid1.Columns(1) Text3.Text = DataGrid1.Columns(2) End Sub用上边的事件可以定位某条记录!并把记录值在文本中显示出来!
Text1.Text = adorst.Fields("职工编号")
Text2.Text = adorst.Fields("职工姓名")
Text3.Text = adorst.Fields("职工年龄")
Text4.Text = adorst.Fields("职工性别")
Text5.Text = adorst.Fields("婚姻状况")
Text6.Text = adorst.Fields("工作时间")
Text7.Text = adorst.Fields("技术职称")
Text8.Text = adorst.Fields("所在部门")
Text9.Text = adorst.Fields("基本工资")
If LastRow Then
Exit Sub
End If
Text1.Text = DataGrid1.Columns(0)
Text2.Text = DataGrid1.Columns(1)
Text3.Text = DataGrid1.Columns(2)
End Sub用上边的事件可以定位某条记录!并把记录值在文本中显示出来!