主题：[求助]如何将txt文本导入关联子表中

 导入代码

'导入合并文本文件
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("订单.订单明细").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
   ' strs = strs.Replace(vblf,"")
     strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(",") '以","为记号将每行的内容拆分为两部分
        If cs.Length = 2 Then
            Dim dr As Row = Tables("订单.订单明细").Addnew()
            dr("商品名称") = cs(0)
            dr("数量") = cs(1)
        End If
    Next
End If
Tables("订单.订单明细").ResumeRedraw

 如下

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

点击浏览该文件:订单明细导入txt.table