主题：新增行

If e.keyCode=keys.Enter AndAlso e.Table.cols(e.Table.Colsel).name="单位" Then

    If e.Table.Position<e.Table.Rows.Count-1 Then

        e.Table.Position=e.Table.Position+1

        e.Table.Select(e.Table.TopRow,0,e.Table.BottomRow,0)

        e.cancel=True

    End If

End If