主题：系统报错

这个我也不能理解，有空我再测试看看。

不过你判断行数的方法太恐怖了，应该：

Dim i As new SQLCommand
i.Connection Name = "数据源名称"
i.CommandText ="select Count(*) from {wl请购单} where 请购日期 = '" & Date.today & "'"
If i.ExecuteScalar >0 Then
    DataTables("wl请购单").loadfilter ="请购日期 ='" & Date.today & "'"
    DataTables("wl请购单").load
Else
    messagebox.show("对不起今天还没数据")
End If