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

这个和数据源无关，我只是复制你原来的代码，而你原来的代码漏掉了一行：

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
    Tables("KQ原始数据表").ResumeRedraw()
Else
    messagebox.show("文件不存在")
End If