主题：甜版：报表模板及表序号等问题请教？

Forms("窗口1").Open

 

看楼上

Dim f As New Filler
f.SourceTable = DataTables("报名登记表") '指定数据来源
f.DataTable = DataTables("审核合格表") '指定数据接收表
f.Filter = Tables("报名登记表").Filter
f.ExcludeExistValue = True
f.Fill() '填充数据

 

甜版，这段代码能加“确定导出？”之类的代码吗？能加的话语法是怎么样的？

 自力更生

 

http://www.foxtable.com/help/topics/0326.htm

 

呵呵，那就是可以加了，我自己学习一下！

Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)

Dim f As New Filler
f.SourceTable = DataTables("报名登记表") '指定数据来源
f.DataTable = DataTables("审核合格表") '指定数据接收表
f.Filter = Tables("报名登记表").Filter
f.ExcludeExistValue = True
f.Fill() '填充数据

 

甜版，帮给看看这段代码行不行？我预览是可以的，但就是发现导过去后人员顺序上有变化，人员数量和人名好象没错，不知是什么愿因？

我看出来为什么会有人员顺序变化的原因了，是拼音字母的顺序排的！

 Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
If result = DialogResult.Yes Then
    Dim f As New Filler
    f.SourceTable = DataTables("报名登记表") '指定数据来源
    f.DataTable = DataTables("审核合格表") '指定数据接收表
    f.Filter = Tables("报名登记表").Filter
    f.ExcludeExistValue = True
    f.Fill() '填充数据
End If

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
       
        mg.Format = "Excel"
        mg.SourceTableName = "报名登记表$"
        mg.DataTableName = "报名登记表"
        mg.Merge()
    Next
End If

 

甜版，继续讨教，上述是“导入”按钮的代码，但好象导入EXCEL表的名称只能是《报名登记表》这个名字，是否能改成无论什么表名，只要表里的列名称、顺序一样就行？

 

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim Book As New XLS.Book(fl)
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "Excel"
        mg.SourceTableName = Book.Sheets(0).Name & "$"
        mg.DataTableName = "报名登记表"
        mg.Merge()
    Next
End If

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim Book As New XLS.Book(fl)
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "Excel"
        mg.SourceTableName = Book.Sheets(0).Name & "$"
        mg.DataTableName = "报名登记表"
        mg.Merge()
    Next
End If

 

 

甜版，怎么在“导入”按钮里输入上述代码，导入的是空白数据，而且是5行？我查了很久都查不出什么原因！