| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 新建行后自动选中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140830) |
| -- 作者：有点蓝 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2019/9/15 21:25:00 -- 新增不可能会自动打勾的，都需要自己写代码勾 |
| -- 作者：有点蓝 -- 发布时间：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
|
| -- 作者：有点酸 -- 发布时间：2019/9/19 22:51:00 -- 从头看到尾，都不知道你问的是什么。 |
| -- 作者：有点蓝 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：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 ……
|