- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130615)
-- 发布时间：2019/1/27 1:47:00
-- 求助
此主题相关图片如下：11.png
我想实现，当付款方式在选择的情况下，结账自动勾选，当付款方式为空时，则不勾选
ValueChanged 代码
Dim r As Row = Tables("采购总表").Current
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("词典").GetComboListString("名称","类别 = \'付款方式\'","_identify")
If cmb.ComboList <> "" Then
r("结账").Checked = True
End If
-- 发布时间：2019/1/27 7:43:00
--
如果你的ComboBox1是付款方式的话，你的代码这样修改一下e
-- 发布时间：2019/1/27 11:55:00
--
改成
Dim r As Row = Tables("采购总表").Current
Dim str As String = e.sender.text
If str <> Nothing Then
r("结账").Checked = True
End If