- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 备注显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113665)
-- 发布时间：2018/1/20 13:32:00
-- 备注显示问题
此主题相关图片如下：9090.png
如上所示的窗口结构，有啥方法可以在最右边的test空间中，显示选中单元格的内容。这么做是因为有的单元格是备注形式，内容比较多，不能完整显示。有了这个功能看起来就比较方便。谢谢
-- 发布时间：2018/1/20 14:46:00
--
表AfterSelChange事件
If e.OldRange.RowSel <> e.NewRange.RowSel AndAlso e.OldRange.ColSel <> e.NewRange.ColSel AndAlso Forms("窗口2").Opened
Dim txt As WinForm.TextBox = Forms("窗口2").Controls("TextBox1")
txt.BindingField = Nothing
txt.BindingField = e.Table.Name & "." & e.Table.Cols(e.NewRange.ColSel).Name
End If
-- 发布时间：2018/3/23 14:56:00
--
老师你好 楼主的帖子也是我想问的问题，我按照你的代码，但发现有时候不能正确的显示，有时候就行。表现为：有时候鼠标点到B列某个单元格，能正确显示，移动鼠标点击其他单元格时，只要是B列的单元格就能正确显示，如果想移到A列其他单元格就不能正确显示了。我的表是窗口表。
-- 发布时间：2018/3/23 15:15:00
--
代码改成
If e.OldRange.ColSel <> e.NewRange.ColSel AndAlso Forms("窗口2").Opened
Dim txt As WinForm.TextBox = Forms("窗口2").Controls("TextBox1")
txt.BindingField = Nothing
txt.BindingField = e.Table.Name & "." & e.Table.Cols(e.NewRange.ColSel).Name
End If
-- 发布时间：2018/3/23 15:24:00
--
OK了 完美 谢谢