主题：几个简单问题

如果还不行，做个例子上来看看。

 回复52楼，参考

http://www.foxtable.com/webhelp/scr/1451.htm

执行多次即可

Dim ex As New Exporter
ex.SourceTableName = "表A"
ex.filepath = "d:\订单.mdb"
ex.Export()
ex = New Exporter
ex.SourceTableName = "表B"
ex.filepath = "d:\订单.mdb"
ex.Export()

可以在菜单设计->主菜单那里修改。

也可以在发布项目的时候，指定一下你程序的图标。

 先把mdb文件删除，再导出

If FileSys.FileExists("d:\订单.mdb") Then '如果指定的文件存在
    FileSys.DeleteFile("d:\订单.mdb", 2, 2) '则彻底删除之
End If

你不能新建用户吗？动态管理也可以

http://www.foxtable.com/webhelp/scr/2723.htm

参考代码

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
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
        rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
        Dim cs() As String = rs(i).Split(" ")
        If cs.Length = 4 Then
            'Dim dr As DataRow = DataTables("表A").Addnew()
            output.show(cs(0).split("-")(0))
            output.show(cs(0).split("-")(1))
            output.show(cs(1))
            Dim str As String = cs(2)
            Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\.[0-9]")           
            output.show(mc(0).value)
            output.show(mc(1).value)          
            output.show("------------")
        End If
    Next
End If

参考

http://www.runoob.com/regexp/regexp-tutorial.html

Dim dr As DataRow = DataTables("表A").Addnew()

dr("第一列") = "xxx"