Dim Val As String
If InputValue(Val, "请输入名称", "请输入名称:") Then
If Val >"" Then
Functions.Execute("tblName",Val) '函数没写好.
end if
end if
.........
.........
.........
'函数 ，这个归递要如何写？ 输入文字之前检测一下是否存在同名表.
如果存在继续跳出inputValues，直到输入 DataTables.Contains(Val) = False
Dim Val As String = Args(1)
If DataTables.Contains(Val) = True Then
If InputValue(Val, "请输入名称", "请输入名称:") Then
Functions.Execute("tblName",Val)
Return Nothing
End If
End If
加好友 
发短信
Post By：2014/4/29 15:20:00 [只看该作者]
