老师我这是选择后按选择的列导出EXCEL表，我最早的导出的按钮代码如下，现在已经不能用了。
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables("gxms").SaveExcel(dlg.FileName, "基础个性资料信息表") '保存文件
MessageBox.show("导出成功")
End If
参考帮助说明，提示在表中找不到对应的列。
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim nms As New List(of String)
For i As Integer = 0 To ckl.Items.count - 1 '获取已经勾选的列
If ckl.GetItemChecked(i) Then
nms.Add(ckl.Items(i))
End If
Next
看意思是应该在这一步写代码做转换，不知道该 怎么操作。请老师指导。
-----------------------------------------------------------------------------------------
If nms.Count = 0 Then
MessageBox.Show("至少要选择一列","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
'生成Excel表
Dim dt As Table = Tables("GXGL")
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To nms.count -1
Sheet(0, i).Value = nms(i)
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For i As Integer = 0 To nms.count -1
Sheet(r + 1, i).Value = dt.rows(r)(nms(i))
Next
Next
'保存并打开excel文件
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
加好友 
发短信
Post By：2017/12/10 22:25:00 [显示全部帖子]
