--
Dim 收件人 As WinForm.TextBox = Forms("下订单").Controls("sjr")
Dim 收件电话 As WinForm.TextBox = Forms("下订单").Controls("sjdh")
Dim 收件省 As WinForm.DropDownBox = Forms("下订单").Controls("sjs")
Dim 收件市 As WinForm.TextBox = Forms("下订单").Controls("sjsi")
Dim 收件区 As WinForm.TextBox = Forms("下订单").Controls("sjq")
Dim 收件地址 As WinForm.TextBox = Forms("下订单").Controls("sjdz")
Dim r As Table = Tables("【下拉】客户信息_Table1")
If czlx="收件人" Then ’全局代码
收件人.value= r("客户姓名")
收件电话.value=r("客户电话")
收件省.value=r("省")
收件市.value=r("市")
收件区.value=r("区")
收件地址.value=r("客户地址")
End If