DoubleClickRowHeader - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DoubleClickRowHeader

共有1859人关注过本帖树形打印复制链接主题：DoubleClickRowHeader

蓝蚂蚁

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：672 积分：7885 威望：0 精华：0 注册：2016/6/11 11:10:00

DoubleClickRowHeader 发帖心情

Post By：2019/4/18 15:07:00 [显示全部帖子]

双击某行的行号单元格时弹出窗口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

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

e.Form.Controls("TextBox1").text=str

End If

蓝蚂蚁

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：672 积分：7885 威望：0 精华：0 注册：2016/6/11 11:10:00

Post By：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）

主题：DoubleClickRowHeader