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

Dim Val As String

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

       If Val >"" Then

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

  end if

   end if

.........

.........

.........

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

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

        

    End If

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

Dim Val As String = Args(0)

If DataTables.Contains(Val) = False Then

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

        Functions.Execute("tblName",Val)

        Return Nothing

    End If

Else

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

End If

甜版的可以执行

但是甜版的应该这边写错了

If DataTables.Contains(Val) = True  应该为False

 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"

Dim Val As String = Args(0)

If DataTables.Contains(Val) = False Then

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

        return Functions.Execute("tblName",Val)

    End If

Else

    return val

End If

 

----------------------

 

调用

 

val = Functions.Execute("tblName",Val)

msgbox(val)