以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将txt文本导入关联子表中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50657)
--  作者：99473593
--  发布时间：2014/5/10 19:36:00
--  [求助]如何将txt文本导入关联子表中

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

 

 

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订单明细导入txt,附txt文件格式.rar

[此贴子已经被作者于2014-5-11 8:07:31编辑过]
--  作者：99473593
--  发布时间：2014/5/11 8:10:00
--  
上面导入txt代码，如果是导入狐表中是正常的，导入到关联子表就会出错。
--  作者：有点甜
--  发布时间：2014/5/11 14:51:00
--  

 导入代码

 

\'导入合并文本文件
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
--  作者：有点甜
--  发布时间：2014/5/11 14:55:00
--  

 如下

  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订单明细导入txt.table
--  作者：99473593
--  发布时间：2014/5/11 15:44:00
--  
以下是引用有点甜在2014-5-11 14:51:00的发言：

 导入代码

 

\'导入合并文本文件
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

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