主题：关于组合框的问题

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

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

 

 

 

Dim chexingmingcheng As String = e.Form.Controls("组合框加工厂家").Value

jiagongchangjia.ComboList = DataTables("整车主表").GetComboListString("文化名称", "加工厂家 = '" & chexingmingcheng & "'")

 

Dim wenhuagmingcheng As String = e.Form.Controls("组合框加工厂家").Value
jiagongchangjia.ComboList = DataTables("整车主表").GetComboListString("车型名称", " 加工厂家 = '" & wenhuagmingcheng & "'")

 

 

不可以

 

 

 

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

'Dim chexingmingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框车型名称")
'Dim wenhuamingcheng As WinForm.ComboBox= Forms("配置查询主窗口").Controls("组合框文化名称")
'If chexingmingcheng .text <> ""
    'wenhuamingcheng.SelectedIndex = chexingmingcheng.SelectedIndex
'End If

 

总是提示错误，请教老师问题在哪里？

 

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

点击浏览该文件:管理项目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

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

 上传例子。

老师给看一下，另外我的原来的为什么不行啊，老师能不能给分析下，谢谢老师

 呃，你用的盗版foxtable吧？去论坛下载一个试用版使用。

 

窗口表事件

 

窗口与控件事件

 

配置查询主窗口_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

 

 

从网上随便下载的，近来新发现的，呵呵