版主，

订单明细表中有一列 客户，双击该列后出现客户明细表，双击其中的一个客户后，取该值到订单明细表的该列客户中，如何实现，谢谢。

参考

http://www.foxtable.com/webhelp/scr/1534.htm

http://www.foxtable.com/webhelp/scr/2465.htm

版主

主表cellbuttonclick中增加：

If e.Col.Name = "customer"  Then
     e.Cancel = True
     Forms("customer").Open()
 End If

客户基本资料表中doubleclick 增加：

Dim tbl  As  Table =  Tables("customer")
 If tbl.Current IsNot  Nothing  Then
     Tables("shipment").Current("customer") = tbl.Current("customer")
 End If
 Forms("customer").Close()

列表项目中

设定 |...

第一次双击 ...能选择所需客户，第二次回去选择其它客户后双击，也没有问题。可是第三次再选择第一次所选的客户，主表回到以前有这个客户的记录了。不知道哪儿错了？

那你尝试改成

如果还有问题，实例发上来测试

版主， 还是不对。

请用 Manufacturing 登入，密码 1

双击 船运号 20191003  第20行， 选择 “开票到客户”这一列，先选 第一个客户GSSAG双击，再重新选第二个客户双击，再回去选GSSAG双击,记录就跳转了。

以上，麻烦了。谢谢。

你尝试把currentChanged事件代码删除，如

If e.Table.Current Is Nothing Then Return

Dim wz As Integer = Tables("Shipment").FindRow("ShippingNo=\'" & e.Table.Current("ShippingNo") &"\'")
If wz >=0 Then
    Tables("Shipment").Position = wz
End If

版主，这一段还是要的，要不双击shippingno后它就找不对应的这个号了？

你可以加上表名判断，msgbox(e.table.name)看看你哪个表需要切换。

版主

我加在以下，出现的都是customer. 不知道为什么第三次双击第一次的客户后会跳转。

Tables("shipment").Current("customer") = e.Row("customer")
msgbox(e.Table.name)
Forms("customer").Close()
msgbox(e.Table.name)