软件中有一个窗口动态列表项目，根据第一个组合框的所选项目加载第二个组合框，根据第二个组合框的所选项目加载第三个组合框，，我想这样，第一个组合框加载后同时加载第二个、第三个组合框，(他们是第一个组合框内容的同一行的第二列、第三列的数据），选择第二个组合框的内容，第三个组合框同步显示。

在第二个组合框的enter事件中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

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

谢谢老师，我可能说的不是很清楚，是第一个组合框加载后同时加载第二个、第三个组合框，也就是说窗口加载后，第二个、第三个组合框都已经有列表了，我可以先选择第二个组合框或是第三个组合框，先选择第二个组合框时，第三个组合框自动显示同一个数据行的内容，先选择第三个组合框时，第二个组合框自动显示同一个数据行的内容，这样只能加载第二个组合框和先操作第二个组合框

窗口表事件

窗口与控件事件

配置查询主窗口_AfterLoad

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

jiagongchangjia.ComboList = DataTables("整车主表").GetComboListString("加工厂家")

配置查询主窗口_组合框车型名称_Enter

Dim wenhuagmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框加工厂家")

Dim chexingmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框车型名称")

Dim wenhuamingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框文化名称")

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

wenhuamingcheng.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

配置查询主窗口_组合框加工厂家_Enter

Dim chexingmingcheng As WinForm.ComboBox = e.form.Controls("组合框车型名称")

Dim wenhuamingcheng As WinForm.ComboBox = e.form.Controls("组合框文化名称")

Dim chexingbianma As WinForm.ComboBox = e.form.Controls("组合框车型编码")

chexingmingcheng.text=""

wenhuamingcheng.text=""

chexingbianma.text=""

配置查询主窗口_组合框文化名称_Enter

Dim wenhuagmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框加工厂家")

Dim chexingmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框车型名称")

Dim wenhuamingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框文化名称")

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

wenhuamingcheng.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 文化名称 = \'" & wenhuamingcheng.Text & "\'")

If fdr IsNot Nothing Then

    chexingmingcheng.Text = fdr("车型名称")

End If