以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何让选择的列表单在最左列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194545) |
-- 作者:2900819580 -- 发布时间:2024/12/20 10:22:00 -- [求助]如何让选择的列表单在最左列 老师,如果表单有很多列,想让他每次选择的列都在最左列,如何实现 如tb.s elect(0,25),如何让第25列在表单的最左列
|
-- 作者:有点蓝 -- 发布时间:2024/12/20 10:39:00 -- |
-- 作者:2900819580 -- 发布时间:2024/12/20 11:14:00 -- Dim tbl As Table = Tables(e.form.name & "_Table2") Dim tb As Table = e.Table If tbl.Position <> tb.Position Then tbl.Position = tb.Position Dim Pd As Date = tb.Current("PLStDate") Dim lm As String = pd.Year & "年" & pd.Month & "月_" & pd.Day tbl.Select(tbl.Position, tbl.Cols(lm).Index) MessageBox.Show(tbl.Cols(lm).Index) \'显示122 tb.LeftVisibleCol = tbl.Cols(lm).Index End If 老师,不行呀,不知那里有问题。
|
-- 作者:有点蓝 -- 发布时间:2024/12/20 11:26:00 -- 肯定可以的。应该是122之后没有多少列了吧,如果下方滚动条已经到最右边,肯定不可能滚出边界的 |
-- 作者:2900819580 -- 发布时间:2024/12/20 17:37:00 -- 已解决,谢谢老师 tbl.LeftVisibleCol = tbl.Cols(lm).Index
|