- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控制文本框显示的内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127707)
-- 发布时间：2018/11/20 16:07:00
-- 控制文本框显示的内容
此主题相关图片如下：image 1.jpg
窗口1中上表是表A的副本表，下表是表B的副本表
在表A中AfterSelChange有如下代码
If Forms("窗口1").Opened
Dim txt As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
txt.BindingField = e.Table.Name & "." & e.Table.Cols(e.NewRange.ColSel).Name
End If
作用：一、在窗口1中鼠标点击上表的某个单元格，则在TextBox1中显示上表点中单元格的内容，二、点击下表的某个单元格，则刷新TextBox1中的内容，再显示下表点中单元格的内容
现在第一点能实现了，那么第二点如何实现呢？
-- 发布时间：2018/11/20 16:18:00
--
是不是在每个副本表的click中设置如下代码：
Dim str = e.Row(e.Col.Name)
e.Form.Controls("TextBox1").Text=str
-- 发布时间：2018/11/20 17:57:00
--
1、表B的 AfterSelChange 也写同样的代码，不就好了？
2、也可以在每个表的 click 事件写代码。