以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DoubleClickRowHeader  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133711)
--  作者：蓝蚂蚁
--  发布时间：2019/4/18 15:07:00
--  DoubleClickRowHeader
双击某行的行号单元格时弹出窗口1。窗口1中只有一个文本框，其AfterLoad代码如下
当双击行号时发现问题，当双击主表的行号时，能弹出窗口1，当在窗口1中双击行号时，不能弹出窗口1，请问老师是不是代码有问题？
\'A处：
If  CurrentTable.name="窗口_Table1" Then
    Dim r As Row = Tables("窗口_Table1").current
    Dim str As String = ""
    For Each c As Col In r.Table.cols
        str &= c.name & ":" & r(c.name) & vbcrlf
    Next
    e.Form.Controls("TextBox1").text=str
End If
\'B处：
If  CurrentTable.name="表" Then
    Dim r As Row = Tables("表").current
    Dim str As String = ""
    For Each c As Col In r.Table.cols
        str &= c.name & ":" & r(c.name) & vbcrlf
    Next
    e.Form.Controls("TextBox1").text=str
End If
--  作者：有点甜
--  发布时间：2019/4/18 16:03:00
--  

在事件里面加入msgbox，看弹出是否正常。

 

msgbox(currentTable.name)

msgbox(e.table.name)

 
--  作者：蓝蚂蚁
--  发布时间：2019/4/18 20:43:00
--  

有点甜老师  我把打开窗口1的代码写到双击单元格里，双击这个单元格就能打开窗口1，同时能正常显示

DoubleClick

双击单元格后执行。

If e.Col.Name = "患者编号" Then
   e.Cancel = True \'禁止进入编辑状态
   Forms("双击行号头弹出小窗口").Open()
End If

窗口1中的其AfterLoad代码不变（注上面我发的代码中应该是窗口1，而不是窗口像：Dim r As Row = Tables("窗口_Table1").current）
--  作者：有点甜
--  发布时间：2019/4/19 10:27:00
--  
没看懂你的问题，实例发上来测试。