Foxtable(狐表)用户栏目专家坐堂 → 新建行后自动选中


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

主题:新建行后自动选中

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 21:16:00 [显示全部帖子]

复制后,给新行变量勾选不就行了

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim
 dr2 As Row = Tables("表B").AddNew()
    
dr2.checked = ture
Next

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 21:25:00 [显示全部帖子]

新增不可能会自动打勾的,都需要自己写代码勾

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 22:44:00 [显示全部帖子]

Dim t As Table = Forms("刀具归还明细").Controls("计划明细").Table
For Each r As Row In Tables("刀具归还明细_计划明细").GetCheckedRows
    Dim r2 As Row = t.AddNew
r2..checked = True

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 8:52:00 [显示全部帖子]

去掉Tables("刀具归还明细_计划明细").HideUnSelectedRows


红色代码改为
Dim t1 As Table = Forms("刀具归还明细").Controls("计划明细").Table
For Each r As Row In t1.Rows
    If r.Checked = False Then r.Remove
Next

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 9:19:00 [显示全部帖子]

意思是新增的行才勾选,旧的勾选的行去掉勾选?

Dim t As Table = Forms("刀具归还明细").Controls("计划明细").Table
For Each r As Row In Tables("刀具归还明细_计划明细").GetCheckedRows
    Dim r2 As Row = t.AddNew
    r2.checked = True
r.checked = false
……

 回到顶部