Dim lst As new List(of String)
lst.AddRange({"记账日期","交易类型"})
Dim ct As WinForm.Table = e.Form.Controls("公用窗体_zjjgyszqkTable")
Dim t As Table = ct.Table
Dim str As String
Dim w As Integer = 0
For Each c As Col In t.Cols
If c.Visible Then
If lst.Contains(c.Name) Then
str = str & "|" & c.Name & "|[width]"
Else
If c.Width = -1 Then
str = str & "|" & c.Name & "|98"
w += 98
Else
str = str & "|" & c.Name & "|" & c.Width
w += c.Width
End If
End If
End If
Next
Dim w2 As Integer = (ct.Width-23- w) / lst.Count
str = str.trim("|").Replace("[width]",w2)
t.SetColVisibleWidth(str)
Dim wdzjzh As WinForm.Table = e.Form.Controls("wdzjzhTable")
Dim zjzht As Table = wdzjzh.Table
For Each zjzhc As Col In zjzht.Cols
If zjzhc.Visible Then lst.Add(zjzhc.Name)
Next
Dim zjzhw As Integer = (wdzjzh.Width-23) /2
zjzht.SetColVisibleWidth(String.Join("|" & zjzhw & "|",lst.ToArray) & "|" & zjzhw)
加好友 
发短信
Post By：2020/4/30 11:28:00 [只看该作者]
此主题相关图片如下：截图03.jpg
