| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专家：求代码解析 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53987) |
| -- 作者：CBSLULU33 -- 发布时间：2014/7/19 13:03:00 -- 专家：求代码解析 以下这段代码会在勾选记录后在【出库明细表】中新增一条记录，但如果想做到在勾选若干条记录后在【出库明细表】已有的记录行中为某些字段赋值（如：字段"钢瓶号码"的值），而不是新增一行，该如何做呢？谢谢 For Each r1 As Row In Tables("添加钢瓶_入库明细表").GetCheckedRows \'每个被勾选的行 Dim r2 As Row = Tables("出库主表.出库明细表").AddNew \'被勾选的行新增到明细表中 r2("钢瓶号码") = r1("钢瓶号码") r2("产品名称") = r1("产品名称") r2("化学分子式") = r1("化学分子式") r2("产品规格") = r1("产品规格") Next e.Form.Close |
| -- 作者：don -- 发布时间：2014/7/19 13:25:00 -- Dim n1 as Integer Dim r2 As DataRow Dim drs as List(of DataRow) = DataTables("出库明细表").Select("條件行") For Each r1 as row In Tables("添加钢瓶_入库明细表").GetCheckedRows \'每个被勾选的行 r2 =drs(n1) n1=n1+1 r2("钢瓶号码") = r1("钢瓶号码") Next e.Form.Close
[此贴子已经被作者于2014-7-19 13:25:28编辑过]
|
| -- 作者：CBSLULU33 -- 发布时间：2014/7/19 13:37:00 -- 那请问，第一句 For Each r1 As Row In Tables("添加钢瓶_入库明细表").GetCheckedRows
还需要加上去吗？否则如何锁定被选行呢？谢谢
|
| -- 作者：CBSLULU33 -- 发布时间：2014/7/19 13:39:00 -- 另外这段代码是一个BUTTON的CLICK事件噢 |
| -- 作者：CBSLULU33 -- 发布时间：2014/7/19 14:04:00 -- 请问，您这里指的Select("條件行")，条件行是什么呀？ |
| -- 作者：Bin -- 发布时间：2014/7/19 14:13:00 -- 你要筛选的表达式 例如 "ID=1 and 产品类别=\'二号\'" |