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

窗口1的table1绑定A表，并且是副本表，其中table1的CurrentChanged代码：

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("目录").FindRow(dr)

If wz >=0 Then

Tables("目录").Position = wz

End If

在A表的DoubleClickRowHeader里有代码：Forms("双击文本显示信息窗口").open。其中窗口“双击文本显示信息窗口”的AfterLoad代码如下：

If CurrentTable.name="目录" Or CurrentTable.name="窗口1_Table1" Then

Dim r As Row = Tables("目录").current

Dim s As String=""

Dim a1 As String="中标号或编号"

Dim a2 As String="组件名称"

Dim a3 As String="规格型号"

Dim a4 As String="生产企业"

Dim a5 As String="单位"

Dim a6 As String="中标价"

Dim a7 As String="采购价"

Dim str As String = ""

str=a1 & "：" & r(a1) & vbcrlf & a2 & "：" & r(a2) & vbcrlf & a3 & "：" & r(a3) & vbcrlf & a4 & "：" & r(a4) & vbcrlf & a5 & "：" & r(a5) & vbcrlf & a6 & "：" & Format(r(a6),"0.0000") & "元/" & r(a5) & vbcrlf & a7 & "：" & Format(r(a7),"0.0000") & "元/" & r(a5) & vbcrlf

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

End If

问题：为什么在目录这个主表中双击行头就能够弹出“双击文本显示信息窗口”，双击副本表的行头就不会弹出“双击文本显示信息窗口”？

if e.Table.Current is nothing then return

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("目录").FindRow(dr)

If wz >=0 Then

Tables("目录").Position = wz

End If

在A表的DoubleClickRowHeader里有代码：Forms("双击文本显示信息窗口").open。其中窗口“双击文本显示信息窗口”的AfterLoad代码如下：

If （CurrentTable.name="目录" Or CurrentTable.name="窗口1_Table1"） andalso CurrentTable.current isnot nothing Then

Dim r As Row = CurrentTable.current

Dim s As String=""

Dim a1 As String="中标号或编号"

……

不行的，在窗口1_Table1双击行头还是没有弹出“双击文本显示信息窗口”的窗口

我测试没有问题，上传实例说明

我用其他窗口绑定的副本表就行，唯独窗口1绑定的副本表就不行，看看老师能指点一下，像这样的情况如何排查，因为项目比较大不方便上传

再经过测试，在窗口1中再增加一个副本表，也是绑定目录表，然后双击行头，发现能正常弹出弹出，不知道为什么双击Table1就不行

我简单的做了实例

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

那就删除，重新添加一个副本表

以下是引用有点蓝在2019/11/29 11:21:00的发言：
那就删除，重新添加一个副本表

老师还是麻烦你帮看看实例

嗯，窗口表有自己的事件后，主表这个事件被屏蔽了。这个问题已经反馈

主题：双击副本表行号单元格