这段代码放在项目初始化属性中，数据源中表已经存在，但 DataTables.contains("用户登记表") 仍显示为false

If DataTables.contains("用户登记表")=False Then

    Dim Builder As New ADOXBuilder("ABC") \'要指定数据源名称

    Dim tbl As ADOXTable

    Builder.Open()

    tbl = Builder.NewTable("用户登记表") \'创建表

    With tbl

        .AddColumn("用户姓名" ,ADOXType.String,5)

        .AddColumn("单位" ,ADOXType.String, 20)

        .AddColumn("密码" ,ADOXType.String, 6)

    End With

    Builder.AddTable(tbl, True, True) \'增加表

    Builder.Close()

    Syscmd.Project.Open(ProjectFile)

Else

    If DataTables("用户登记表").DataRows.count<=0 Then

        Dim dr As DataRow = DataTables("用户登记表").addnew()

        dr("单位")="默认单位"

        dr("用户姓名")="默认用户"

        dr("密码")="123"

    End If

End If