主题：如何把列值改成数组

 Dim str As String = e.form.Controls("ComboBox1").text
Dim a As Table = Tables("授权")
For i As Integer = 0 To a.Rows.count - 1
    Dim nr As Row = a.Rows(i)
    Dim Names As New List(Of String)
    Dim nms1() As String = nr("用户").split(",")
    'MessageBox.Show(Names)
    Names.AddRange(nms1)
    If Names.Contains(str) = False Then
        Names.Add(str)
        Else
          Names.Remove(str)
    End If
Next
我想把列值变成数组，再运用数组进行判断是否包含某个字符，再进行增删
此主题相关图片如下：qq截图20230411122122.png

下面句出问题了

Dim nms1() As String = nr("用户").split(",")

Dim str As String = e.form.Controls("ComboBox1").text
Dim a As Table = Tables("授权")
For i As Integer = 0 To a.Rows.count - 1
    Dim nr As Row = a.Rows(i)
    Dim Names As New List(Of String)
    If  nr("用户") IsNot Nothing Then
        Dim nms1() As String = nr("用户").split(",")
        'MessageBox.Show(Names)
        Names.AddRange(nms1)
        If Names.Contains(str) = False Then
            Names.Add(str)
        Else
            Names.Remove(str)
        End If
    End If
Next

 Dim nms1() As String = nr("用户").split(",")

现在应该是怎样才能把列值改成数组

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

就是没有反应的，我用MEBOX测试过是这句有问题

 

Dim str As String = e.form.Controls("ComboBox1").text
Dim a As Table = Tables("授权")
For i As Integer = 0 To a.Rows.count - 1
    Dim nr As Row = a.Rows(i)
    Dim Names As New List(Of String)
    If nr("用户") IsNot Nothing Then
        Dim nms1() As String = nr("用户").split(",")
        Names.AddRange(nms1)
        If Names.Contains(str) = False Then
            Names.Add(str)
            nr("用户") = Names
        Else
            Names.Remove(str)
            nr("用户") = Names
        End If
    End If
Next

生成的结果放在用户列

是从冰箱里拿出蛋，看下是否是好的，好的贴上标签放回去，坏的仍丢

 

   Names.Add(str)这个是数组插入

Names.Remove(str)数组移除

数组的检测是否包含某个人，移去，加入这个动作用什么

终于搞定

现在是使用了循环核对的方法

  For k = 0 To Names.Length - 1

玩甘多年，基础还是很差，要补下才行