主题：[求助]返回值问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.table

在订单的窗口，点客户编码后，在客户窗口选择一行，例如选择K1，怎么返回的是K4，帮助看看

代码

Dim dst As Table = e.Table
Dim dr As Row = dst.Current '获得选定行     
If dst.Count <> 0 Then
    'If  Forms("订单").Opened=True Then
        Dim r As Row = Tables("订单主表").Current
        r("客户编码")=dr("客户编码")
        r("客户名称")=dr("客户名称")
    'End If
    e.Form.Close
    Return
End If