专家坐堂-[求助]我什么时候使用了DropDOW？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim 充值店铺 As WinForm.ComboBox = e.Form.Controls("充值店铺")

Dim 充值类型 As WinForm.ComboBox = e.Form.Controls("充值类型")

Dim 充值余额 As WinForm.Label = e.Form.Controls("充值余额")

Dim 冻结1 As WinForm.NumericComboBox = e.Form.Controls("冻结1")

Dim 可用1 As WinForm.NumericComboBox = e.Form.Controls("可用1")

Dim 类型1 As WinForm.ComboBox = e.Form.Controls("类型1")

Dim 扣除店铺 As WinForm.ComboBox = e.Form.Controls("扣除店铺")

Dim 扣除余额 As WinForm.Label = e.Form.Controls("扣除余额")

Dim 类型2 As WinForm.ComboBox = e.Form.Controls("类型2")

Dim 可用2 As WinForm.NumericComboBox = e.Form.Controls("可用2")

Dim 冻结2 As WinForm.NumericComboBox = e.Form.Controls("冻结2")

Dim da As DataRow = DataTables("快递公司").Find("店铺名称 = \'"& 充值店铺.value &"\'")

If da IsNot Nothing Then

类型1.value=da("账户类型")

可用1.value=da("当前余额")

冻结1.value=da("冻结额")

充值余额.text=da("冻结额")+da("当前余额")