e.Form.StopRedraw
Dim cmd As New SQLCommand
cmd.C
Dim ss1 As String = "Select * from {派车计划表} where 计划单号 not In (Select 计划单号 from 车辆配送表) and 状态 <> \'运输完成\' and 状态 <> \'作废\' and 状态 <> \'已计划\' UNION ALL "
Dim ss2 As String = "Select a.* from {派车计划表} a left join 车辆配送表 b on a.计划单号 = b.计划单号 where a.状态 <> \'运输完成\' and  b.状态 = \'回车确认\'"
Dim ss As String = ss1 & ss2
Tables("车辆异常处理_Table1").Fill(ss,"baox",True)
Tables("车辆异常处理_Table1").cols("ID").visible = False
Dim i As Integer = Tables("车辆异常处理_Table1").count
If i > 0  Then
   e.Form.controls("Button2").Enabled = True
Else
   e.Form.controls("Button2").Enabled = False
   messagebox.show("目前没有发现异常!")
End If
e.Form.ResumeRedraw

以后是整个代码，不知问题在哪？但再执行一次，又正常了。有点晕！！

Dim ss As String = ss1 & ss2

output.show(ss)

将合成的Select语句复制到foxtable的sql执行窗口执行，看看能不能通过。

这个是能通过的。

再执行一次，又正常哦。得出结果没有问题，打开项目后执行第一次才会有问题，之后又正常。退出项目再打开执行第一次问题重现。

有时间再上传吧。因为SQL表不好操作呀

转成内部表或者access表，看看还有没有问题，如果有，就上传。