-- 作者:hsjyp0559
-- 发布时间:2013/5/8 15:24:00
-- 已解决
Dim cmb As WinForm.ComboBox cmb = Forms("收款信息列表").Controls("ComboBox1") cmb.ComboList = "全部|"+DataTables("zts").GetComboListString("ztsmc")
Dim txt As String=e.Form.controls("combobox1").value Dim tbl As Table=Tables("收款信息列表_table1") If txt="" Or txt="全部" Then tbl.filter="" Else e.Form.controls("textbox1").text="" Dim dr As DataRow dr = DataTables("zts").Find("ztsmc = \'" & txt & "\'") tbl.filter="ztsid=" & dr("id") End If
[此贴子已经被作者于2013-5-8 15:24:54编辑过]
|