老师，如果表单有很多列，想让他每次选择的列都在最左列，如何实现
如tb.s elect(0,25),如何让第25列在表单的最左列
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
老师，不行呀，不知那里有问题。
肯定可以的。应该是122之后没有多少列了吧，如果下方滚动条已经到最右边，肯定不可能滚出边界的
已解决，谢谢老师
tbl.LeftVisibleCol = tbl.Cols(lm).Index