主题：请教狐爸高速合并与加载两个问题

Dim mg As New Merger
mg.SourcePath = "c:\data\" '指定数据文件所在目录
mg.Format = "Delimited" '指定格式
mg.SourceTableName = "订单" '指定要合并的文件，无需扩展名
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并

合并文本文件的时候，最好配合有schema.ini文件。  应该是这个问题

如果是 schema.ini  的问题 我也不知道怎么用了?

你可以 导出到excel里面  这样处理简单些!

首先非常谢谢您对我的回复,您已努力了,再次感谢!但导出EXCEL表又比较麻烦,再等等狐爸看看,如再不行再说吧,谢谢您!

自己写一段，简单高效：

 

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("KQ原始数据表").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For Each r As String In rs
        Dim cs() As String = r.Split(vbtab)
        If cs.Length = 4 Then
            Dim dr As DataRow = DataTables("KQ原始数据表").Addnew()
            dr("卡机号") = cs(0)
            dr("原始数据") = cs(1)
            dr("卡标") = cs(2)
        End If
    Next
End If
Tables("KQ原始数据表").ResumeRedraw

真是高效.

狐爸:真是非常感谢您,我在您的代码的基础上修改了一下,因为我是不希望出现文件路径对话框的,我是在日期框中选定日期后,自动合并数据,代码如下:

Dim rq As WinForm.DateTimePicker = Forms("窗口2").Controls("rq")
Dim rqt As String =rq.text
rqt =rqt.Replace("-","")
Dim wjm As String ="Time" & rqt & ".txt"
Tables("KQ原始数据表").StopRedraw
Dim strs As String = FileSys.ReadAllText("d:\测试\打卡数据\" & wjm)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
For Each r As String In rs
    Dim cs() As String = r.Split(vbtab)
    If cs.Length = 4 Then
        Dim dr As DataRow = DataTables("KQ原始数据表").Addnew()
        dr("卡机号") = cs(0)
        dr("原始数据") = cs(1)
        dr("卡标") = cs(2)
        dr("卡号") =cs(3)
    End If
Next

效果很好,但又出现了一个问题,如果所选日期代表的文本文件不存在的话,系统就报错,并很难解决,比如说我选了2012-07-15这个日期,产生的文本文件名为Time20120715.txt,但这个文本文件,文件夹中并不存在,它就报错,请狐爸再帮我看看,谢谢!

判断呀

Dim rq As WinForm.DateTimePicker = Forms("窗口2").Controls("rq")
Dim rqt As String =rq.text
rqt =rqt.Replace("-","")
Dim wjm As String ="Time" & rqt & ".txt"
wjm = "d:\测试\打卡数据\" & wjm
If FileSys.FileExists(wjm) Then
    Tables("KQ原始数据表").StopRedraw
    Dim strs As String = FileSys.ReadAllText(wjm)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For Each r As String In rs
        Dim cs() As String = r.Split(vbtab)
        If cs.Length = 4 Then
            Dim dr As DataRow = DataTables("KQ原始数据表").Addnew()
            dr("卡机号") = cs(0)
            dr("原始数据") = cs(1)
            dr("卡标") = cs(2)
            dr("卡号") =cs(3)
        End If
    Next
Else
    messagebox.show("文件不存在")
End If

狐爸:现在有个问题不知怎么回事,我的数据源是ACCESS时,您的代码效果非常好,但我一转到SQL SERVER时,系统好像能运作,合并数据后,状态栏显示新合并的行数,但就是不显示数据,随便点几下以后,整个界面变白了,点击其它的主表,其它表没问题,就是这个表,一合并数据就不显示了,请问那里出了问题,我没动什么东西啊,并且我重新删除了SQL SERVER中的数据表,重做了一个,也不行,请狐爸看看,谢谢