Foxtable(狐表)用户栏目专家坐堂 → 选择执行指定记录


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

主题:选择执行指定记录

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


加好友 发短信
等级:三尾狐 帖子:799 积分:5921 威望:0 精华:0 注册:2018/11/3 8:24:00
选择执行指定记录  发帖心情 Post By:2018/11/28 19:20:00 [只看该作者]

版主,请问一下,窗口中我进行了条件筛选,选出结果后,执行下面的代码,它把窗口表中没有选中的那些记录也钩上了,能否帮忙看看要调整哪些才能钩上只有选中的那些记录,谢谢。

 

Dim gx As WinForm.checkbox=e.Form.controls("勾选")
For Each r As Row In Tables("Orderlist").Rows
    r("Import") = gx.Checked
Next


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:799 积分:5921 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/28 19:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2018/11/28 20:48:00 [只看该作者]

你表名写错了?

 

Dim gx As WinForm.checkbox=e.Form.controls("勾选")
Dim t As Table = e.Form.controls("Table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    r("Import") = gx.Checked
Next


 


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


加好友 发短信
等级:三尾狐 帖子:799 积分:5921 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/28 21:16:00 [只看该作者]

表名是Table1 运行后不对,只选择了一条记录,就完了,是不是哪还是不对呀?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/28 21:40:00 [只看该作者]

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

 回到顶部