窗口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
问题：为什么在目录这个主表中双击行头就能够弹出“双击文本显示信息窗口”，双击副本表的行头就不会弹出“双击文本显示信息窗口”？
加好友 
发短信
Post By：2019/11/29 8:01:00 [显示全部帖子]
