你可以定位啊:
If e.Col.name = "辅导老师" Then
Dim dr As DataRow = DataTables("老师表").find("姓名 = '" & e.Row("辅导老师") & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("老师表").FindRow(dr)
If wz >= 0 Then
Tables("老师表").Position = wz
Forms("老师窗口").Open()
End If
End If
End If
参考:
[此贴子已经被作者于2015/7/18 10:32:55编辑过]