以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]topvisiblerow的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125858) |
||||
-- 作者:81538475 -- 发布时间:2018/10/8 19:12:00 -- [求助]topvisiblerow的问题 左边是表,右边是窗口表,单元格高度是一样的,用以下代码,为啥对应的可见行的位置错开了呢。应该怎么调整 Tables("进度安排_table1").TopVisibleRow = Tables("XMFP").TopVisibleRow [此贴子已经被作者于2018/10/8 19:12:49编辑过]
|
||||
-- 作者:81538475 -- 发布时间:2018/10/8 19:30:00 -- 还有个问题。为啥右边的窗口表打开的时候,左边表格的当前选择行的颜色显示会错乱,滚动滚轮才会好。 |
||||
-- 作者:有点蓝 -- 发布时间:2018/10/8 20:10:00 -- 请上传具体实例看看 |
||||
-- 作者:81538475 -- 发布时间:2018/10/8 22:45:00 -- 上面还是能对上的。越往下,越对不上了。 [此贴子已经被作者于2018/10/8 22:45:31编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/10/8 22:57:00 -- 这句代码放到表A,AfterScroll事件 Tables("窗口1_Table1").TopVisibleRow = Tables("表A").TopVisibleRow至于颜色错乱,测试没有问题
|
||||
-- 作者:81538475 -- 发布时间:2018/10/8 23:00:00 -- 颜色错乱是在窗口表的currentchanged里面的代码 Dim tbl2 As Table = Tables("表A") If e.Table.Current IsNot Nothing Then Dim r As Integer r = tbl2.FindRow("_IDENtify = \'"& e.table.Current("_identify") &"\'") \' tbl2.Select(r,0) End If [此贴子已经被作者于2018/10/8 23:01:06编辑过]
|
||||
-- 作者:81538475 -- 发布时间:2018/10/8 23:01:00 -- 刚才忘记加了。 |
||||
-- 作者:有点蓝 -- 发布时间:2018/10/8 23:06:00 -- 加上测试也没有问题 |
||||
-- 作者:81538475 -- 发布时间:2018/10/8 23:30:00 --
[此贴子已经被作者于2018/10/8 23:29:55编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2018/10/9 8:44:00 -- positionChanged加上代码
|