主题：管理员可否帮忙完成一个窗口录入的功能？感激不尽！

建议：

1、以后最好复制一个项目，重定向为内部表，输入或导入一些测试数据，然后再发上来，方便了大家，你才能更快地获得回复。

2、你发上的数据文件，连个后缀名也没有，是mdf的，还是bak的？

正常的代码应该是这样：

Dim tbl As Table = Tables("销售选客户_Table1")
If e.KeyCode = Keys.Up Then
    tbl.Position = tbl.Position - 1
    e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
    tbl.Position = tbl.Position + 1
    e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then
        Tables("chuhuodan").Current("_Identify") = tbl.Current("_Identify")
        Tables("chuhuodan").Current("kehuname") = tbl.Current("kehuname")
        Tables("chuhuodan").Current("tel") = tbl.Current("tel1")
        Tables("chuhuodan").Current("dizhi") = tbl.Current("dizhi")
    End If
    e.Cancel = True   
    e.Form.Close()
End If

也就是向出货单写入选择的客户资料，你原来的代码，是向客户表写入选择的客户，当然是不行的。

还有两处类似的代码，你自行修改一下吧。

设置kehuname这个文本框的DoubleClick事件，打开客户选择窗口：

Forms("销售选客户").Open()

这样可以直接输入客户，也可以双击选择客户。

不是任何数据表都可以重新定向的，对于外部数据表，只有满足下述条件的表才能重定向：

1、主键列的名称为"_Identify"，且为自动增量型。
2、必须有一个名称为"_Locked"的逻辑列，用于保存行的锁定标记。