我尝试使用帮助的代码，放到全局代码的位置： 如下：

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

点击浏览该文件:20130228.txt

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

点击浏览该文件:20130302.txt

我每日都会有一个文本文件要导入，文本文件的格式是一样，只是里面的信息不同。我录入的目的是方便以后调用和做筛选的。

我要做一个按钮，只要click就可以选择需要导入的文本文件到foxtable里面，每日都会增加数据的。怎样实现才比较好？

请高手们指点

如附件，这些文本文件我每日需要更新到foxtable里的，方便以后调用。

现在就是不知道如何去写代码将这些数据读进去。

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    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(vbtab)
        If cs.Length = 4 Then
            Dim dr As DataRow = DataTables("表A").Addnew()
            dr("第一列") = cs(0)
            dr("第二列") = cs(1)
            dr("第三列") = cs(2)
            dr("第四列") = cs(3)
        End If
    Next
End If
Tables("表A").ResumeRedraw

这段代码应该写到哪里？ 放到全局代码吗？还是放在命令窗口里面？

1、出错是因为列的长度不够，例如某个字符列的而长度是16，你要写入20个字符，就会提示长度不够

2、代码写在那里？ 你只是临时导入，就在命令窗口执行就行，如果要经常导入，就在菜单或者窗口中加入一个按钮，代码写在这个按钮的Click事件中

3、继续按顺序看下去，就明白怎么回事了。

非常感谢狐爸，已经明白了。

感谢其他高手的回答。