嗯嗯，谢谢，刚才在几个表里的AfterSelChange表事件里写了个遍历，也解决了，感谢感谢
If e.Table.Focused = True Then '输入焦点是否在表
Dim tb() As String = {"客商资料","客商资料.收货地址","客商资料.装机明细","客商资料.客户注意事项"}
For t As Integer = 0 To tb.Length - 1
If Tables.Contains(tb(t)) = True Then '如果表存在
Dim a() As String = {"备注","单证注意","注意事项"} '定义字段
For i As Integer = 0 To a.Length - 1
If Tables(tb(t)).Cols.Contains(a(i)) = True Then '如果字段存在
Dim b As Col = Tables(tb(t)).Cols(a(i)) '命名列
If e.NewRange.ColSel = b.Index Then '如果点击位置相同
If e.Table.Name = tb(t) '如果是同一张表
b.OpenWindow '打开列窗口
Else
b.CloseWindow '关闭列窗口
End If
Else
b.CloseWindow
End If
End If
Next
End If
Next
End If
加好友 
发短信
Post By：2021/12/3 14:36:00 [显示全部帖子]
此主题相关图片如下：1638518161(1).png