以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 条件勾选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150800)

--  作者:leoli
--  发布时间:2020/6/8 9:20:00
--  [求助] 条件勾选问题
老师,只要其中的一个列不满足条件,就不可以选中列FUsed,以下黄色的有错吗 ? 加了这个条件后就不对了。谢谢。



Dim gx As WinForm.checkbox=e.Form.controls("勾选")
Dim t As Table = e.Form.controls("Table1").Table
For Each r As Row In t.rows
If r("FunitID") = 0 Or r("FItemID") = 0 Or r("FSupID") = 0 Or  r("FCyID") = 0 Or r("FPType") = 9 Or r("FCurrencyID") = 0 Or DataTables("t_SupplyEntry").find("ID=\'" & r("ID") & "\'") Is Nothing Or DataTables("ConfirmList").find("ID=\'" & r("ID") & "\'") Is Nothing Then Continue For
 r("FUsed") = gx.Checked
Next


--  作者:有点蓝
--  发布时间:2020/6/8 9:38:00
--  
代码没有问题。
--  作者:leoli
--  发布时间:2020/6/8 9:58:00
--  
可不对, 是不是这个Is Nothing 不对了 ?
--  作者:有点蓝
--  发布时间:2020/6/8 10:21:00
--  
我没看懂具体实现什么功能,请截图逐行说明一下
--  作者:leoli
--  发布时间:2020/6/8 12:31:00
--  
老师,第一个是正确的,谢谢。
[此贴子已经被作者于2020/6/8 12:31:29编辑过]