主题：求返回逻辑值

InputValue

InputValue函数用于显示一个对话框，获得用户输入的单个值。
这样我们就无需为一些简单的输入工作而专门设计窗口，直接使用InputValue函数即可。

语法：

InputValue(Variant, Caption，Description)

Variant:       用于接收数据的变量
Caption：      字符型，设置对话框标题
Description：  字符型，设置对话框说明

InputValue会返回一个逻辑值，如果用户在对话框中单击的是确定按钮，则返回True，否则返回False。

 

如何判断返回的逻辑值是true还是false？　

如果用户在对话框中单击的是确定按钮，则返回True，否则返回False

示例见http://www.foxtable.com/help/topics/2063.htm

谢谢你的及时回复，不过你回的帖子与我发的帖子内容基本一致，相当于把我的问题再叙述一次。

 呃，直接获取就行吧。

 Dim a As Boolean =  InputValue(val, "", "")

 

Dim Val As Date
If InputValue(Val, "筛选","请输入出生日期:") Then
    Output.Show(Val)
End If

 

If InputValue(Val, "筛选","请输入出生日期:") Then这个语句就会获得InputValue返回的逻辑值，你在弹出的窗口点确定返回True，会执行
Output.Show(Val)，点取消返回False，就不会执行

If InputValue(Val, "筛选","请输入出生日期:") Then其实就是
If InputValue(Val, "筛选","请输入出生日期:") = True Then