| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]我什么时候使用了DropDOW？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144436) |
| -- 作者：zto001 -- 发布时间：2019/12/19 21:22:00 -- [求助]我什么时候使用了DropDOW？ [求助]我什么时候使用了DropDOW？ 错误出现在代码 类型1.value=da("账户类型") 上面 无法将类型为“Foxtable.WinForm.ComboBox”的对象强制转换为类型“Foxtable.WinForm.DropDownBox”。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("当前余额") |
| -- 作者：zto001 -- 发布时间：2019/12/19 21:23:00 -- 说明下，组件都是ComboBox 没错。 |
| -- 作者：zto001 -- 发布时间：2019/12/19 21:29:00 -- 解决了，删掉重建一个。 |