主题：问个小函数如何描述。。。。。

Dim Val As String

    If InputValue(Val, "请输入名称", "请输入名称:") Then

       If Val >"" Then

         Functions.Execute("tblName",Val)  '函数没写好.

  end if

   end if

.........

.........

.........

'函数 ，这个归递要如何写？ 输入文字之前检测一下是否存在同名表.

如果存在继续跳出inputValues，直到输入 DataTables.Contains(Val) = False

我还以为是datatable输入新名本来会自动检测的。所以代码同复了。。提示错误呢。谢谢上面的大侠

 Dim Val As String

    If InputValue(Val,"输入临时表名!!","请输入:")  Then

        If Val >"" Then    '输入：“表A”   表A已存在

            Functions.Execute("tblgetName",Val)  '函数发现同名，再输入：表B 传递.结果Val的值是：“表B”

            msgbox(Val &"1")  '这里最后的结果，还是第一次输入的“表A”。。

            Dim dtb As New DataTableBuilder(Val)           '生成临时表

            dtb.AddDef("No",Gettype(Integer))

            dtb.AddDef("Name",Gettype(String))

            dtb.AddDef("Name1", Gettype(String))

            dtb.AddDef("Control", Gettype(Boolean))

            dtb.Build()

    end if

end if

'---发现问题了，值不传递。

Dim Val As String = Args(0)

If DataTables.Contains(Val) Then

    msgbox("已经存在相同表名!!!!!")

    If InputValue(Val, "请输入名称", "请输入名称:") Then        ‘输入：“表B”

        Functions.Execute("tblgetName",Val)  

        Return Nothing    

    End If

End If

msgbox(Val) ‘传递出来的值还是"表B"

怎么通过遍历数据表。获取所有表的列的属性。

dtb.AddDef("glCol", Gettype(String),100,"","查询字段")
dtb.AddDef("glMath", Gettype(String),100,"","操作符")
dtb.AddDef("glValue", Gettype(String),250,"","值")
dtb.AddDef("glType", Gettype(String),100,"","逻辑")