以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194677)

--  作者：13775189031 --  发布时间：2025/1/4 13:17:00 --  增加行 请教老师：逻辑列“盘库”点击打钩后在最上面增加一行，在afteredit以下代码 单独点击“盘库”列没有问题，想用重复填充，批量生成就有问题，无法重复填充，请问如何修改 If e.Col.Name = "盘库" AndAlso e.Row(e.Col.Name) = True Then     Dim cr As Row = e.Row     Dim nr As Row = e.Table.addnew     nr("编号") = cr("编号")     nr("类别") = cr("类别")     nr("物资名称") = cr("物资名称")     nr("规格") = cr("规格")     nr("单位") = cr("单位")     nr("储存位置") = cr("储存位置")     nr("月初库存数量") = cr("月末库存数量")     nr.move(0) End If

--  作者：有点蓝 --  发布时间：2025/1/4 14:16:00 --   代码放到datacolchanged事件 If e.dataCol.Name = "盘库" AndAlso e.dataRow("盘库") = True Then     Dim cr As dataRow = e.dataRow     Dim nr As Row = Tables(e.datatable.name).addnew     nr("编号") = cr("编号")     nr("类别") = cr("类别")     nr("物资名称") = cr("物资名称")     nr("规格") = cr("规格")     nr("单位") = cr("单位")     nr("储存位置") = cr("储存位置")     nr("月初库存数量") = cr("月末库存数量")     nr.move(0) End If