标题：[求助]ComboBox的下拉列表值

求教

     我现在用动态的向一个窗口添加两个ComboBox，第一个取值表A的一列，然后第二个ComboBox根据第一个ComboBox的值来取表A的第二列值，我现在的做法是把它加到了窗口Afterload事件里，但现在我点第二个ComboBox时无法从第一个ComboBox取值并筛选表A的第二列值。或者能不能告诉我怎么来动态的设置ComboBox的Enter事件

这里有例子：

 

http://www.foxtable.com/help/topics/1523.htm

 

If e.Sender.Name.SubString(0,4) = "ComboBox2" Then '如果名称符合
    Dim cmbl As WinForm.ComboBox = e.Sender
    Dim str As String = e.Form.Controls("ComboBox1").Value
    cmbl.ComboList = DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'")
End If

 

我是这样写的，但是不生效，还请指教

在ComboxBox2的Enter事件中设置代码：

 

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'")

我的ComboBox2是一个动态添加的。在窗口中看不到，没法设置Enter事件

看看代码到底执行了没有：

 

MessageBox.show(e.Sender.Name)

If e.Sender.Name.SubString(0,4) = "ComboBox2" Then '如果名称符合

    MessageBox.show(e.Sender.Name)

    Dim cmbl As WinForm.ComboBox = e.Sender
    Dim str As String = e.Form.Controls("ComboBox1").Value
    cmbl.ComboList = DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'")
End If

执行了，但是还是没有取到值……

If e.Sender.Name.SubString(0) = "ComboBox2" Then '如果名称符合
    Dim cmbl As WinForm.ComboBox = e.Sender
    Dim str As String = e.Form.Controls("ComboBox1").Value
    cmbl.ComboList = DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'")
End If

 

找到原因了，是sustring的长度不够，把长度限制去掉就可以了，谢谢啦

不会有的别的原因，要么条件有问题，要么根本就没有符合条件的数据，这样检查一下：

 

If e.Sender.Name.SubString(0,4) = "ComboBox2" Then '如果名称符合

    Dim cmbl As WinForm.ComboBox = e.Sender
    Dim str As String = e.Form.Controls("ComboBox1").Value
    cmbl.ComboList = DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'")

    MessageBox.Show(Str)
    MessageBox.Show("物料 = '" & str & "'")

    MessageBox.Show(DataTables("现有量").GetComboListString("批号", "物料 = '" & str & "'"))

End If