以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这样格式数据怎样导入系统中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38566)
--  作者：qqking
--  发布时间：2013/8/1 11:58:00
--  这样格式数据怎样导入系统中

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:212130006.txt

 

谁能帮下忙，谢谢。


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2013-8-1 12:10:09编辑过]
--  作者：Bin
--  发布时间：2013/8/1 12:00:00
--  
人都看不明白别说电脑了, 好歹你图示一下怎么个导入法.
--  作者：Bin
--  发布时间：2013/8/1 12:00:00
--  
并且做个例子传上来.
--  作者：Bin
--  发布时间：2013/8/1 14:44:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：qqking
--  发布时间：2013/8/1 15:06:00
--  
谢谢，版主
--  作者：e-png
--  发布时间：2013/8/2 9:35:00
--  

bin版老师的不太理解，而且导入不全，这样也可以········ ：

 

Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim rs As String = FileSys.ReadAllText(dlg.FileName)

    For i As Integer = 0 To rs.split(chr(10) & chr(13)).length -1
        If rs.split(chr(10) & chr(13))(i).contains("\'")

            Dim szh As String = rs.split(chr(10) & chr(13))(i).replace("\'","")

            Dim dr As Row = Tables("表A").AddNew
            For j As Integer=0 To Tables("表A").Cols.Count-1
                If j = 0
                    dr(Tables("表A").Cols(j)) = szh.split(",")(j)
                ElseIf j =1 Then
                    dr(Tables("表A").Cols(j)) = "按科目号另外生成"
                Else
                    dr(Tables("表A").Cols(j)) = val(szh.split(",")(j-1))
                End If
            Next
        End If
    Next
End If
MessageBox.show("完成!")
--  作者：Bin
--  发布时间：2013/8/2 9:38:00
--  
他做的例子就需要前面那部分,所以就按照它要求做了.