自动增加行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)
        If cr("编制人") = user.name Then
            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
End If

主题：自动增加行