主题：[求助]子表窗口中CheckedComboBox控件的下拉列表项目？

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

点击浏览该文件:管理项目4_1105.zip

Dim cmb As WinForm.ComboBox = e.Sender
If cmb.Items.Count > 0 Then '如果已经设置了项目
    Return '则返回
End If
Dim t As Table = cmb.BindTable '获得绑定的Table
Dim c As Col = cmb.BindCol '获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[表] = '" & t.Name & "' And [列] = '" & c.Name & "'")
If dr IsNot Nothing Then '如果在项目表找到对应的行
    cmb.Combolist = dr("列表项目") '则设置列表项目
End If

Dim cmb As WinForm.CheckedComboBox = e.Sender
If cmb.Items.Count > 0 Then '如果已经设置了项目
    Return '则返回
End If
Dim t As Table = cmb.BindTable '获得绑定的Table
Dim c As Col = cmb.BindCol '获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[表] = '" & t.Name & "' And [列] = '" & c.Name & "'")
If dr IsNot Nothing Then '如果在项目表找到对应的行
    cmb.Combolist = dr("列表项目") '则设置列表项目
End If