代码如下：

Dim sjrq As Date
sjrq = e.Form.Controls("sjrq").value
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("公司机构客户表").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim cs As String = "客户编码 客户名称 客户归属总行部门 行业 规模 网点是否有效客户 支行是否有效客户 二级分行是否有效客户 一级分行是否有效客户 总行是否有效客户 公司机构客户金融总量日均余额合计 金融资产日均余额_小计 "      
       Dim nms() As String
        nms= cs.Split(" ")
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
          Dim ds() As String
          ds = rs(i).Split(" ")
          For j As Integer = 0 To ds.Length - 1
            Dim dr As DataRow = DataTables("公司机构客户表").Addnew()
          dr(nms(j)) =ds(j)      
    Next
Next
End If
Tables("公司机构客户表").ResumeRedraw

执行完数据不在表的同一行？

 数据的问题吧？

 做个例子发上来。

 试试这样

Dim sjrq As Date
sjrq = e.Form.Controls("sjrq").value
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("公司机构客户表").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim cs As String = "客户编码 客户名称 客户归属总行部门 行业 规模 网点是否有效客户 支行是否有效客户 二级分行是否有效客户 一级分行是否有效客户 总行是否有效客户 公司机构客户金融总量日均余额合计 金融资产日均余额_小计 "
    Dim nms() As String
    nms= cs.Split(" ")
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 1 To rs.Length - 1
        Dim ds() As String
        ds = rs(i).Split(" ")
        Dim dr As DataRow = DataTables("公司机构客户表").Addnew()
        For j As Integer = 0 To ds.Length - 1
            dr(nms(j)) =ds(j)
        Next
    Next
End If
Tables("公司机构客户表").ResumeRedraw

 Dim s As String = "123,456.78"

 msgbox(s.Replace(",", ""))