希望版主不要烦我，一个东西 发了三次帖子了 ，但是真的很急。

我问了两次这个问题了，但是之前的都是解决了一小步，我现在从开头开始弄

我设计的窗口
此主题相关图片如下：`r1rfis78{m8bk21su}mzaf.png

我想 选择 人员的时候，上面的编号和名称列出的都是 人员表的东西     选择 物资时，上面的名称和编号都是 物资表的

这是我的 AfterLoad 的代码

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
If e.Form.Controls("人员").Checked = True Then
 cmb1.ComboList = DataTables("人员").GetComboListString("name")
 cmb2.ComboList = DataTables("人员").GetComboListString("bh")
ElseIf e.Form.Controls("物资").Checked = True Then
cmb1.ComboList = DataTables("物资").GetComboListString("wzmc")
cmb2.ComboList = DataTables("物资").GetComboListString("bh")
End If

但是没有实现我想要的结果（哪两个单选框设置的都是  False）

此主题相关图片如下：}0ztyu${hxv(01lkjyuu.png

我把那个两个 单选框都设置成 True 时显示的都是物资表的内容，不管选人员还是物资，

我的这个是哪里出了问题？

在人员、物资的click事件，写代码

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
If e.Form.Controls("人员").Checked = True Then
    cmb1.ComboList = DataTables("人员").GetComboListString("name")
    cmb2.ComboList = DataTables("人员").GetComboListString("bh")
ElseIf e.Form.Controls("物资").Checked = True Then
    cmb1.ComboList = DataTables("物资").GetComboListString("wzmc")
    cmb2.ComboList = DataTables("物资").GetComboListString("bh")
End If