Dim tx As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Dim cb As WinForm.comboboxcb = Forms("窗口1").Controls("comboBox1")cb.ComboList = DataTables("表A").GetComboListString("当事人","[编码] = '" & tx.text & "'").replace("\","|")
当事人绑定没有意思吧?