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

项目有订单和订单明细两张表，通过订单编号建立了关联，（1）新增订单时，订单明细不用一个个录入我想直接导入TXT文件，请帮修改下代码

 

 

（2）如果手工录入订单明细，想在录入完一行时，自动新增一行，能实现吗

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

点击浏览该文件:订单明细导入txt,附txt文件格式.rar

上面导入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

恩，谢谢，完美解决，我一直没想到修改这两行代码