- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 增加行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194677)
-- 发布时间：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
-- 发布时间：2025/1/9 9:42:00
--
麻烦老师看下是什么问题：代码放到datacolchanged事件，还是有问题，比如勾选第一行，后面4行点击重复填充，现在只能生成其中两行，剩下两行无法自动生成
[此贴子已经被作者于2025/1/9 9:42:46编辑过]
-- 发布时间：2025/1/9 10:34:00
--
我测试没有问题，请上传实例说明
-- 发布时间：2025/1/13 9:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:辅机消耗品管理台账.rar |
-- 发布时间：2025/1/13 9:42:00
--
数据库的压缩包为什么上传不了
-- 发布时间：2025/1/13 9:47:00
--
-- 发布时间：2025/1/13 9:49:00
--
论坛仅支持上传2M内的文件。复制一个数据库，然后把测试用不到的表数据清空，压缩一下数据库再发上来
-- 发布时间：2025/1/13 9:55:00
--
都删完了还有4.77MB
