主题：[求助]条件导入问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条件导入.rar

我要将“初2014级生地结业考试成绩.xls”中的“生物”、“地理”成绩合并到“(条件导入)初中期末成绩统计程序.Table ”中的成绩库中，要求是：“编号”=“编号”、“姓名”=“姓名”。合并代码(动态)如何写？请指教。谢谢!

参考这里http://www.foxtable.com/help/topics/2334.htm,循环Excel中所有行,然后利用Datatable("表名").Find(条件) http://www.foxtable.com/help/topics/0396.htm  找到对应的表中的行,为对应的列赋值即可.

代码如下，还是没搞定。如何修改代码？请指教。谢谢!

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "数据库文件|*.dbf;*.xls;*.xlsx|全部|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        If fl.ToLower.EndsWith(".dbf") Then
            Dim wjm As String = FileSys.GetName(fl)
            Dim mg As New Merger
            mg.SourcePath = FileSys.GetParentPath(fl) '指定数据文件所在目录
            mg.Format = "dbase" '指定格式
            mg.SourceTableName =  wjm '指定要合并的dbase文件,无需扩展名
            mg.DataTableName = "成绩库" '指定接收数据的表
            mg.Filter = "[编号] = '编号'And [姓名] = '姓名'" '指定合并条件
            mg.Fields = "生物,地理" '指定要合并的字段(列),不同的字段用逗号隔开,如果不指定,则合并所有字段
            mg.Merge() '开始合并
        Else If fl.ToLower.EndsWith(".xls") Then
            Dim Book As New xls.Book(fl)
            For Each Sheet As xls.Sheet In Book.Sheets '引用新增加的工作表
                Dim mg As New Merger
                mg.SourcePath = fl '指定数据文件所在目录
                mg.Format = "excel" '指定格式
                mg.SourceTableName = sheet.Name & "$"
                mg.DataTableName = "成绩库" '指定接收数据的表
                mg.Filter = "[编号] = '编号'And [姓名] = '姓名'" '指定合并条件
                mg.Fields = "生物,地理" '指定要合并的字段(列),不同的字段用逗号隔开,如果不指定,则合并所有字段.               
                mg.Merge() '开始合并
            Next
        End If
    Next
End If

Dim Book As New XLS.Book("C:\test\初2014级生地结业考试成绩.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,7).Text  '获取编号
    Dim xm As String = sheet(n,8).Text  '获取姓名
    Dim dr As DataRow =  DataTables("成绩库").Find("编号 = '" & bh & "' and 姓名 = '" & xm & "'")
    If dr IsNot Nothing
            dr("生物") = sheet(n,11).text
            dr("地理") = sheet(n,12).text
    End If
Next

这是固定路径的合并代码。我是想用动态路径合并，并且数据来源表可能是“dbf” 或“xls” 格式。代码如何？请指教。谢谢!

1、dbf没办法

2、固定路径改为活动路径，不是这个问题的重点，你完全可以自己改一下，不要太依赖别人

“xls” 格式的动态路径合并已经搞定。谢谢!