主题：关于组合框的问题

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