共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：增加行
1楼
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
2楼
有点蓝 发表于：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
3楼
13775189031 发表于：2025/1/9 9:42:00麻烦老师看下是什么问题：代码放到datacolchanged事件，还是有问题，比如勾选第一行，后面4行点击重复填充，现在只能生成其中两行，剩下两行无法自动生成
[此贴子已经被作者于2025/1/9 9:42:46编辑过]
4楼
有点蓝 发表于：2025/1/9 10:34:00我测试没有问题，请上传实例说明
5楼
13775189031 发表于：2025/1/13 9:39:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:辅机消耗品管理台账.rar |
6楼
13775189031 发表于：2025/1/13 9:42:00数据库的压缩包为什么上传不了
7楼
13775189031 发表于：2025/1/13 9:47:00
8楼
有点蓝 发表于：2025/1/13 9:49:00论坛仅支持上传2M内的文件。复制一个数据库，然后把测试用不到的表数据清空，压缩一下数据库再发上来
9楼
13775189031 发表于：2025/1/13 9:55:00都删完了还有4.77MB
共9 条记录, 每页显示 10 条, 页签:
[1]