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