主题：[求助]导入

可以，你读取文本，然后对文本进行处理。

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
msgbox(str)

 谁叫你修改，获取值啊。比如代码

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
For i As Integer = 7 To ary.Length - 4
    Dim s() As String = ary(i).Split(",")
    For j As Integer = 0 To s.Length - 1
        output.show(s(j))
    Next
Next

 你关键是理解代码啊，你在命令窗口那里测试，看得到什么。

 不理解，你就根本不会用。

意思是读取出来了内容，你只要给表赋值就行啊。

 不会就学。代码已经给你了啊。

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
For i As Integer = 7 To ary.Length - 4
    Dim s() As String = ary(i).Split(",")
    Dim nr As DataRow = DataTables("表A").AddNew
    nr("第一列") = s(0).replace("""", "").trim()
Next

 要导入多列你就加一下代码啊。

nr("第一列") = s(0).replace("""", "").trim()

nr("第二列") = s(1).replace("""", "").trim()