主题：下拉窗口对应录入

4、将Table控件的DoubleClick事件设置为：

Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
    Tables("订单").Current("客户ID") = tbl.Current("客户ID")
    Tables("订单").Current("其它列1") = tbl.Current("其它列1")
    Tables("订单").Current("其它列2") = tbl.Current("其它列2")
End If
Forms("窗口1").Close()

上传图片的方法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78