Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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表,看看还有没有问题,如果有,就上传。