Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
If ccb.Text > "" Then
Dim lst As new List(of String)
lst.AddRange(ccb.Text.Split(","))
For Each c As Col In Tables("表A").Cols
c.Visible = lst.Contains(c.Name)
Next
End If
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
flg.VisibleOnly = True
Tables("表A").SaveExcel("f:\123.xls","表A",flg)
Dim Proc As New Process
Proc.File = "f:\123.xls"
Proc.Start()
加好友 
发短信
Post By：2017/10/16 21:11:00 [显示全部帖子]
