主题：其他

求教大师：编写一段代码如下，想让中间停顿下侍日期录入完后再执行下面程序代码该怎么写？谢谢。

Dim Result As DialogResult
Result = Messagebox.Show("是否按登录时默认起止日期进行数据加载?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then '如果用户选择是
    DataTables("采购付款表").LoadFilter = "进仓日期 >= '" & User.ExtendedValues("开始日期") & "' AND 进仓日期 <= '" & User.ExtendedValues("结束日期") & "'"
    DataTables("采购付款表").Load
Else
    Forms("万能调用窗口").OpenTo("采购付款表")
    MessageBox.Show("请在万能窗口1输入起始日期,在万能窗口2输入结束日期!")

Dim frm As WinForm.Form
    frm = Forms("万能调用窗口")
    Dim Date1 As String = FrM.CONTROLS("TEXTBOX1").VALUE
    Dim Date2 As String = FrM.CONTROLS("TEXTBOX2").VALUE
    If Date1 Is Nothing Or Date2 IsNot Nothing
        MessageBox.Show("您未在万能窗口1输入起始日期或未在万能窗口2输入结束日期!")
        pause = True
        Return Nothing
    Else
        pause = False
        DataTables("采购付款表").LoadFilter = "进仓日期 >= '" & DATE1 & "' AND 进仓日期 <= '" & DATE2 & "'"
        DataTables("采购付款表").Load
    End If
End If

不好意思代码复制错误，应该是这一段代码（上面代码是最早的不太成功）：

Dim Result As DialogResult
Result = Messagebox.Show("是否按登录时默认起止日期进行数据加载?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then '如果用户选择是
    DataTables("采购付款表").LoadFilter = "进仓日期 >= '" & User.ExtendedValues("开始日期") & "' AND 进仓日期 <= '" & User.ExtendedValues("结束日期") & "'"
    DataTables("采购付款表").Load
Else
    Forms("万能调用窗口").OpenTo("采购付款表")
    MessageBox.Show("请在万能窗口1输入起始日期,在万能窗口2输入结束日期!")
    Dim frm As WinForm.Form
    frm = Forms("万能调用窗口")
    Dim Date1 As String = FrM.CONTROLS("TEXTBOX1").VALUE
    Dim Date2 As String = FrM.CONTROLS("TEXTBOX2").VALUE

    If Date1 IsNot Nothing And Date2 IsNot Nothing
        DataTables("采购付款表").LoadFilter = "进仓日期 >= '" & DATE1 & "' AND 进仓日期 <= '" & DATE2 & "'"
        DataTables("采购付款表").Load
    Else
        MessageBox.Show("您未在万能窗口1输入起始日期或未在万能窗口2输入结束日期!")
        Return Nothing
    End If
End If

顶上去

还是简单一点，不用扩展属性。

简单的输入密码就启动项目，用户体验好一些。

项目打开后，想干啥，用户自己选择。

开发者也能偷点懒，不用控制来控制去。

 你这段代码应该写在万能窗口，在万能检测是否输入了值，决定是否触发操作

If Date1 IsNot Nothing And Date2 IsNot Nothing
        DataTables("采购付款表").LoadFilter = "进仓日期 >= '" & DATE1 & "' AND 进仓日期 <= '" & DATE2 & "'"
        DataTables("采购付款表").Load
    Else
        MessageBox.Show("您未在万能窗口1输入起始日期或未在万能窗口2输入结束日期!")
        Return Nothing
    End If