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

自己写一段，简单高效：

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