主题：自动增加行

请教

If e.keycode = keys.enter Then
    If e.Table.cols(e.Table.colsel).name = "备注"  Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("预算编号") = cr("预算编号")
        nr("物资部采购预算编号") = cr("物资部采购预算编号")
        nr("编制人") = cr("编制人")
        nr("生产令号") = cr("生产令号")
        nr("项目名称") = cr("项目名称")
        nr("物资说明") = cr("物资说明")
        nr("中标情况_招标采购签收日期") = cr("中标情况_招标采购签收日期")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

 

想增加判断，即登录账户user与“编辑人”不同，则不能增加此行，要怎么实现？

谢谢！

请教

 

表A     

      编号列 

       0001

       0002

 

表B

     编号列       版本 

      0001       A

      0001       B

      0002       A

      0002       B

 

表B编号列不为空时，在表A中自动生成行，

想实现，表B中编号列相同时，版本升版后，由最新版本的行覆盖表A中的内容，也就是表A中内容始终是最新版本的内容

If e.keycode = keys.enter Then
    If e.Table.cols(e.Table.colsel).name = "焊缝编号"  Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("零部件编号") = cr("零部件编号")
        nr("生产令号") = cr("生产令号")
        nr("项目名称") = cr("项目名称")
        nr("机组") = cr("机组")
        nr("零部件名称") = cr("零部件名称")
        nr("零部件图号") = cr("零部件图号")
        nr("数量") = cr("数量")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

 

上面的代码是在“焊缝编号”列按回车键，自动插入行

能否实现某逻辑列A，若列A为true，则自动插入行

ok!谢谢！