求教

     我现在用动态的向一个窗口添加两个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 & "\'")

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

MessageBox.show(e.Sender.Name)

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

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 \'如果名称符合

End If