主题：[求助]选定问题

老师，

DropDownOpening 代码如下

Dim lvw As WinForm.ListView = e.Form.Controls("ListView3")

Dim ss As String = e.Form.DropDownBox.Value

If ss > "" Then

    Dim ary() As String = e.Form.DropDownBox.BindingField.Split(".")

    Dim dr As DataRow = DataTables("Z005窗表字段设置").Find("[绑定表] ='"& ary(0) &"' And [绑定列] ='"& ary(1) &"' and [绑定窗口名称]='通用目录树'")

    If dr IsNot Nothing AndAlso dr.IsNull("绑定赋值列")=False AndAlso dr.IsNull("取值列")=False Then '如果在项目表找到对应的行

        Dim vals() As String = e.Form.DropDownBox.Value.split(",")

        Dim Parts1() As String=dr("取值显示列").Split(",")

        Dim i1 As Integer

        For Each r As WinForm.ListViewRow In lvw.Rows

            For i1=0 To Parts1.Length-1

                If array.IndexOf(vals, r(Parts1(i1))) >= 0 Then

                    r.Checked = True

                    MessageBox.Show(r(Parts1(i1)) & r.Checked)

                Else

                    r.Checked = False

                End If

            Next

        Next

    Else

        For Each r As WinForm.ListViewRow In lvw.Rows

            r.Checked = False

        Next

    End If

End If

弹窗显示了已经为TRUE，为何复选框还不选定呢