动态窗口控件的动态列表项目设置,以下代码没起作用
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事件里是没有问题的