[求助] 根据列宽设定窗口宽度。 Post By：2018/5/12 8:22:00 [显示全部帖子]
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.AutoSizeCols
Dim wd As Integer Dim s1 As String = tb.getColVisibleWidth() Dim ss() As String = s1.Split("|") For i As Integer = 1 To ss.Length - 1 Step 2 wd += CInt(ss(i)) Next
加好友 
发短信
Post By：2018/5/12 8:22:00 [显示全部帖子]
