主题：关于文本格式文件的导入

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

点击浏览该文件:201.txt

   如附件中的文本，如何导入到FOXTABLE中，谢谢！

参考：

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

点击浏览该文件:管理项目10.table

谢谢狐狸爸爸。

请问，如何把那个窗体做成文件选择的窗体，那样就不需要拷贝内容到窗体中了。

谢谢！

呵呵，我给你两个帮助地址参考：

http://www.foxtable.com/help/topics/0328.htm

http://www.foxtable.com/help/topics/0344.htm

大概就是：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文本文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim s As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    DataTables("表A").DataRows.Clear
    Dim vals() As String = s.replace(vbcr,"").replace(vblf,"").split(";")
    Dim nms() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列"}
    Dim dr As DataRow
    Dim idx As Integer
    For i As Integer = 0 To Vals.Length - 1
        If i Mod 8 = 0 Then
            dr = DataTables("表A").AddNew()
            idx = 0
        End If
        dr(nms(idx)) = vals(i)
        idx = idx + 1
    Next
End If