主题：主窗体所属问题

甜老师换路径也不起作用,是不是Execl原因呢？我的是Execl2013

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