Dim pxfs As WinForm.CheckedComboBox = e.Form.Controls("显示隐藏列")
For Each cl As Col In Tables("工程款台账管理").Cols
cl.Visible = True
next
For Each s as string In pxfs.Text.Split(",")
Tables("工程款台账管理").Cols(s).Visible = FalseNext
加好友 
发短信
Post By：2021/10/27 17:34:00 [只看该作者]
