以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表事件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71775)

--  作者:bestorange
--  发布时间:2015/7/17 18:34:00
--  表事件问题

现在我在表属性DobleClick事件中编写了Forms("学员资料").Open()

双击任意单元格会弹出录入窗口

如果我只想指定单击第一列下的单元格才弹出窗口。是在该事件命令里增加指定列呢?还是怎样?

[此贴子已经被作者于2015/7/17 18:34:57编辑过]

--  作者:bestorange
--  发布时间:2015/7/17 18:41:00
--  

If e.Col.Name = "姓名" Then

    Forms("学员资料").Show

End If

 

修改成?


--  作者:bestorange
--  发布时间:2015/7/17 18:52:00
--  

图中表格,双击学员姓名列下单元格 可弹出该名学员的资料窗口,可单击辅导老师列下单元格 虽然弹出教师资料窗口,却不是该名老师的资料 我应该如何绑定?


图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:31.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2121.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2015/7/18 10:33:00
--  
你可以定位啊:

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编辑过]