主题：如何用自定义的录入界面进行数据填充

你可以这样：
 
ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then
        Tables("订单").Current("客户ID") = tbl.Current("客户ID")
    End if
    e.Form.Close()

改为：

ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then

        If e.Control = False Then
             '单行写入的代码
        Else

            '多行写入的代码

        End If
    End if
    e.Form.Close()

另foxtable没有选择不连续行的功能，除非你是用复选框，如和使用复选框，参考帮助文件“开发篇 - foxtable编程 - 基本类型 - Table - 常用属性 - 处理复选框”