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.move(cr.index+1)
e.cancel = True
End If
End If