请教老师：逻辑列“盘库”点击打钩后在最上面增加一行，在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
代码放到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