Foxtable(狐表)用户栏目专家坐堂 → [求助] 带条件进行勾选


  共有2877人关注过本帖树形打印复制链接

主题:[求助] 带条件进行勾选

帅哥哟,离线,有人找我吗?
leoli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
[求助] 带条件进行勾选  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/30 9:44:00 [只看该作者]

谢谢提醒,已经补齐了。

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By: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


 回到顶部