以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 带条件进行勾选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150446)
--  作者：leoli
--  发布时间：2020/5/30 9:27:00
--  [求助] 带条件进行勾选
老师，以下代码我一点，整个表中的FUsed 列就会全部选中，可有一个特殊情况，就是当列 part 显示 “无记录”时，这条记录就要自动跳过，不能被选中，该如何操作。谢谢。


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
    r("FUsed") = gx.Checked
Next

[此贴子已经被作者于2020/5/30 9:43:49编辑过]
--  作者：有点蓝
--  发布时间：2020/5/30 9:40:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080

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("part") = "无记录" then continue for
    r("FUsed") = gx.Checked
Next
--  作者：leoli
--  发布时间：2020/5/30 9:44:00
--  
谢谢提醒，已经补齐了。
--  作者：leoli
--  发布时间：2020/5/30 10:34:00
--  
解决了，供各位参考

For Each r As Row In Tables("PriceNew").Rows
    If r("PartDesc") = "无记录" Then
      r("FUsed")  =  False
    Else
        r("FUsed")  = True
    End If
Next