主题：求助，这是咋回事？C1.Win.C1FlexGrid？

我的计划事件“筛选”代码如下

try

    filter = System.Windows.Forms.Form.ActiveForm

    If filter.Name = "FilterEditorForm" And flag Then

        flag = False

        MyTimers("筛选").Enabled = False

        filter.Controls.Clear

        

        filter.Padding = New System.Windows.Forms.Padding(8,0,8,8)

        Dim nc As Object

        nc = new system.windows.Forms.CheckBox

        nc.text = "全选"

        nc.backcolor = color.Transparent

        nc.width = 50

        nc.left = 10

        nc.Top = 10

        AddHandler CType(nc, system.windows.Forms.CheckBox).CheckedChanged, AddressOf selAll_CheckedChanged

        filter.controls.add(nc)

        

        nc = new system.windows.Forms.button

        nc.text = "取消"

        nc.width = 60

        nc.left = 200

        nc.Top = 10

        AddHandler CType(nc, system.windows.Forms.Button).Click, AddressOf cancel_Click

        filter.controls.add(nc)

        

        nc = new system.windows.Forms.button

        nc.text = "确定"

        nc.width = 60

        nc.left = 265

        nc.Top = 10

        AddHandler CType(nc, system.windows.Forms.Button).Click, AddressOf confirm_Click

        filter.controls.add(nc)

        

        nc = new system.windows.Forms.panel

        nc.height = 140

        nc.Dock = System.Windows.Forms.DockStyle.bottom

        nc.AutoScroll = True

        panel = nc

        filter.controls.add(nc)

        

        Dim count As Integer = 0

        

        Dim ls As List(Of String)

        If colName = CurrentTable.Cols(0).Name Then

            ls = CurrentTable.DataTable.GetUniqueValues("", colName)

        Else

            ls = CurrentTable.DataTable.GetUniqueValues(CurrentTable.Filter, colName)

        End If

        For Each data As String In ls

            Dim cbx = new system.windows.Forms.CheckBox

            cbx.text = data

            cbx.height = 18

            cbx.Top = count * 20

            count += 1

            cbx.Font = New Font("楷书", 9, FontStyle.Bold)

            cbx.backcolor = color.Transparent

            nc.controls.add(cbx)

        Next

        flag = True

    End If

catch ex As exception

    '出错不执行任何代码.

End try