应用场景:客户有常规的付款方式，但是，但每次的送货单，偶尔也会出现欠款，或其他的付款方式

解   决:输入送货单时，通过dlookup从客户档案中，找出备案的常规付款方式，填入送气单的收款方式中。

收款方式在窗体中以组合框获取输入，用户可以选择。

Private Sub 客户_AfterUpdate()  '选择客户后
    Dim v As Variant
    v = DLookup("付款方式", "客户档案", "客户系统自动编号=" & 客户系统自动编号)  '取得客户备案的付款方式编号

    If Not IsNull(v) Then
        收款方式 = v
    End If    
End Sub