- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]topvisiblerow的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125858)
-- 发布时间：2018/10/8 19:12:00
-- [求助]topvisiblerow的问题
此主题相关图片如下：qq截图20181008191135.png
Tables("进度安排_table1").TopVisibleRow = Tables("XMFP").TopVisibleRow
[此贴子已经被作者于2018/10/8 19:12:49编辑过]
-- 发布时间：2018/10/8 19:30:00
--
还有个问题。为啥右边的窗口表打开的时候，左边表格的当前选择行的颜色显示会错乱，滚动滚轮才会好。
此主题相关图片如下：qq图片20181008192834.png
-- 发布时间：2018/10/8 20:10:00
--
请上传具体实例看看
-- 发布时间：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至于颜色错乱，测试没有问题
-- 发布时间：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编辑过]
-- 发布时间：2018/10/8 23:01:00
--
刚才忘记加了。
-- 发布时间：2018/10/8 23:06:00
--
加上测试也没有问题
-- 发布时间：2018/10/8 23:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
此主题相关图片如下：2018108-232903.jpg
[此贴子已经被作者于2018/10/8 23:29:55编辑过]
-- 发布时间：2018/10/9 8:44:00
--
positionChanged加上代码
e.Table.Refresh