主题：几个简单问题

老师，我按照程序输出多个表，但是第二次再输出这些表提示运行错误，表A、表B、表C、表D已经存在，如何纠正这个错误。

 先把mdb文件删除，再导出

 

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

老师，我想用foxtable内置的用户管理功能，但是只有开发者和管理者，如何更改换成我所需要的：captain，APC，QC，OBS，Nav和Gun等用户。

 

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

 

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

 

老师好，开发软件都要有配置文件，请问foxtable怎么做配置文件。

1、自己设置配置文件的格式：

谢谢指点！

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

点击浏览该文件:1234.txt

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

点击浏览该文件:1234.txt

参考代码

 

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

多谢老师，老师真行。