主题：导出数据

Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim ws As String =  Tables("表A").getColVisibleWidth
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)

Tables("表A").SetColVisibleWidth(ws)
Dim Proc As New Process
Proc.File = "f:\123.xls"
Proc.Start()

麻烦老师在看一下，这样导出来没有数据呢

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
'Dim st As XLS.Style = Book.NewStyle '日期列的显示格式
'st.Format = "yyyy-MM-dd"
Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim ws As String =  Tables("表A").getColVisibleWidth
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 dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Tables("表A").SetColVisibleWidth(ws)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If

请用11楼代码。或者用2楼代码。

我是自定义存储路径和名称

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
    Dim ws As String =  Tables("表A").getColVisibleWidth
    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(dlg.FileName,"表A",flg)
   
    Tables("表A").SetColVisibleWidth(ws)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If

老师，选择列后，怎么判断我是否点击了确定或是取消，点击确定直接就导出选择的列，这儿该怎么处理。

看你TextChanged是否触发，如果触发了，就是【确定】。

老师，代码如下，我选择了NO，多执行了一次MessageBox，需要在点一次NO才行，哪儿有问题？

Dim Result As DialogResult
Result = MessageBox.Show("你确定导出选择数据列的数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes  Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then
        Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
        Dim ws As String =  Tables("表A").getColVisibleWidth
        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(dlg.FileName,"表A",flg)
        Tables("表A").SetColVisibleWidth(ws)
        Dim Proc As New Process
        Proc.File = dlg.FileName
        Proc.Start()
    End If
Else
    Dim sbxh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
    sbxh.Value =""
End If

 

问题就是我在复选框点击确定，MessageBox弹出之前，已经写入值，所以多弹出了一次MessageBox，能否点击复选框确定不写入或是其他处理方式，点击MessageBox确定时在写执行CheckedComboBox1。

选择否的时候，不要重复触发代码

 

Else
systemready = false
    Dim sbxh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
    sbxh.Value =""
systemready = true
End If

完美解决，谢谢老师。