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

代码

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