当代码红色部分  为如下时vals(i) 可以正常起作用    

 Dim Vals As List(of String)  

     vals(i) 

当代码为以下代码时，怎么使用vals集合0.1的值呢？对应的vals(i) 该怎么写呢？

If br("信息内容") <>"" Then

            Dim Vals As List(of String())

            If br("发送人员") <>"" Then

                Dim filter As String = "1=2"

                For Each s As String In br("发送人员").split(",")

                    filter = filter & " or [姓名] like \'%" & s & "%\' "

                Next

                Vals = DataTables("干警信息").sqlGetValues("姓名|身份属性",filter  )

            End If

            

            For i As Integer = 0 To Vals.Count - 1

                Dim dr0 As DataRow =  DataTables("信息模板").sqlfind("操作单位=\'" & _usergroup & "\' And  信息类别 = \'" & br("信息类别") & "\'"  )

                Dim dr As DataRow = DataTables("告知内容").sqlfind("信息内容 = \'" & br("信息内容") & "\'and 操作单位 = \'" & _usergroup & "\' and 姓名 = \'" & vals(i) & "\'")

                If dr Is Nothing Then

                    dr = DataTables("告知内容").AddNew()

                    dr("信息时间") = Date.Now

                    dr("姓名") = Vals(i)