Else If Vars("WinType") = 13 Then \'销售订单明细表货品选择
    Dim ro1 As Row
    Dim ro2 As Row
    Dim dr As DataRow
    ro1 = Tables("销售订单_Table1").Current
    ro2 =Tables("查询_Table1").Current
    If ro1 IsNot Nothing Then
        If ro2 IsNot Nothing Then
            ro1("PRD_NO") = ro2("PRD_NO")
            dr = DataTables("PRDT").Find("[PRD_NO] = \'"& ro2("PRD_NO") &"\'")
            If dr IsNot Nothing Then
                ro1("PRD_NAME") = dr("NAME")
                ro1("WH") = dr("WH")
                ro1("UNIT") = dr("UT")
                ro1("QTY") = 1.0
                ro1("UP") = dr("UPR")
            End If
        End If
    End If
End If
e.Form.Close

就执行这么点代码关闭时候就有阴影，咋回事