主题：关于组合框的问题

enter事件

Dim wenhuagmingcheng As WinForm.ComboBox = e.Form.Controls("组合框加工厂家")

e.Sender.ComboList = DataTables("整车主表").GetComboListString("车型名称", " 加工厂家 = '" & wenhuagmingcheng.Text & "'")

SelectedIndexChanged事件

Dim wenhuagmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框加工厂家")
Dim chexingmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框车型名称")
Dim wenhuamingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框文化名称")

Dim fdr As DataRow = DataTables("整车主表").Find(" 加工厂家 = '" & wenhuagmingcheng.Text & "' and 车型名称 = '" & chexingmingcheng.Text & "'")
If fdr IsNot Nothing Then
    wenhuamingcheng .Text = fdr("文化名称")
End If