一下代码是主窗口界面那个日期控件旁边那个按钮的Click事件代码：

Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("起始和结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxlcon.Warming)
Else
      With DataTables("订单")
     .loadFilter ="日期">=#"& d1&"# And 日期<=#" & d2 &"#"
     .load()
End With
End

以上代码是我在《Foxtable数据库应用开发宝典》上原封不动操写下来的，但还是报错：未声明“MessageBoxButtons”，它可能因其保护级别而不受影响。

 
此主题相关图片如下：screenshot_20190712_133253.png

全部代码如下：已经测试过，得行的。

Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("起始和结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
With DataTables("订单")
      .loadFilter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
      .load()
End With
End If