bug,改成saveExcel
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim t As Table = Tables("POS机库存资料")
Dim str As String = t.getColVisibleWidth
If lieming.value > "" Then
For Each c As Col In t.Cols
c.visible = False
Next
For Each s As String In lieming.value.split(",")
t.cols(s).visible = True
Next
End If
Tables("POS机库存资料").SaveExcel(dlg.FileName, "POS机库存资料")
t.SetColVisibleWidth(str)
End If