单击导出按钮我写如下代码:如果不选择列时,怎么不判断呢?
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count < 0 Then
msgbox("不能所有列都不选")
Return
Else
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
If sjdcxzb="POS机库存资料表" Then
Dim post As Table = forms("pos机信息修改窗体").Controls("Table1").Table
Dim str As String = post.getColVisibleWidth
If lieming.value > "" Then
For Each c As Col In post.Cols
c.visible = False
Next
For Each s As String In lieming.value.split(",")
post.cols(s).Visible = True
Next
End If
forms("pos机信息修改窗体").Controls("Table1").Table .SaveExcel(dlg.FileName, "POS机库存资料")
post.SetColVisibleWidth(str)
end if
[此贴子已经被作者于2017/12/10 22:47:40编辑过]