[求助]动态窗口控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

动态窗口控件的动态列表项目设置，以下代码没起作用

Dim lbl As WinForm.CheckedComboBox
lbl = e.Form.CreateControl("DL", ControlTypeEnum.CheckedComboBox)
lbl.Left = 100
lbl.Top = 70
lbl.Width = 100
lbl.Height = 20
e.Form.AddControl(lbl)

Dim lbl1 As WinForm.CheckedComboBox
lbl1 = e.Form.CreateControl("MX", ControlTypeEnum.CheckedComboBox)
lbl1.Left = 210
lbl1.Top = 70
lbl1.Width = 100
lbl1.Height = 20
e.Form.AddControl(lbl1)

Dim DL As String
If e.Form.ExistControl("DL") = True
    Dim cmb As WinForm.CheckedComboBox = e.form.Controls("DL")
    cmb.ComboList = DataTables("科目档案").GetComboListString("成本大类")
    Dim cmb1 As WinForm.CheckedComboBox = e.form.Controls("MX")
    Dim str1 As String = e.Form.Controls("DL").value
    If str1 Is Nothing
        cmb1.ComboList = DataTables("科目档案").GetComboListString("科目名称","科目性质='损益'")
        Else
        cmb1.ComboList = DataTables("科目档案").GetComboListString("科目名称","成本大类 in ( '" & str1.replace(",","','") & "')")
    End If
End If

上面标颜色的这句代码没起作用，如果直接放在控件的enter事件里是没有问题的

这个返回什么数据：

msgbox(DataTables("科目档案").GetComboListString("科目名称","成本大类 in ( '" & str1.replace(",","','") & "')") )

msgbox("成本大类 in ( '" & str1.replace(",","','") & "')")

试了，放在控件的enter事件里显示正常

我上面的代码是写在单选按钮的click事件里的，msgbox没显示任何东西

如何将控件的enter事件在click事件里体现呢

我这样测试，正常，请做个例子发上来测试。

Dim lbl As WinForm.CheckedComboBox
lbl = e.Form.CreateControl("DL", ControlTypeEnum.CheckedComboBox)
lbl.Left = 100
lbl.Top = 70
lbl.Width = 100
lbl.Height = 20
e.Form.AddControl(lbl)

Dim lbl1 As WinForm.CheckedComboBox
lbl1 = e.Form.CreateControl("MX", ControlTypeEnum.CheckedComboBox)
lbl1.Left = 210
lbl1.Top = 70
lbl1.Width = 100
lbl1.Height = 20
e.Form.AddControl(lbl1)

Dim DL As String
If e.Form.ExistControl("DL") = True
    Dim cmb As WinForm.CheckedComboBox = e.form.Controls("DL")
    cmb.ComboList = "1|2|3|4"
    Dim cmb1 As WinForm.CheckedComboBox = e.form.Controls("MX")
    cmb1.ComboList = "A|B"
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.foxdb

如果你要做联动，必须在控件CheckedComboBox的enter、textchanged、或者click事件写代码才行的。

哦，那我只有固定控件，用Visible属性控制了

主题：[求助]动态窗口控件