以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把列值改成数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186178)

--  作者:zhuxinhui
--  发布时间:2023/4/11 12:24:00
--  如何把列值改成数组

 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(",")


--  作者:有点蓝
--  发布时间:2023/4/11 13:37:00
--  
帮助搜“空值”,学一下怎么判断单元格是否是空值
--  作者:zhuxinhui
--  发布时间:2023/4/11 13:54:00
--  
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

--  作者:zhuxinhui
--  发布时间:2023/4/11 13:56:00
--  

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

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


--  作者:有点蓝
--  发布时间:2023/4/11 13:58:00
--  
只要单元格有值,4楼这个代码没有问题。执行有什么错误?

另外空值判断用法还是不正确,多看看帮助吧

--  作者:zhuxinhui
--  发布时间:2023/4/11 13:59:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:zhuxinhui
--  发布时间:2023/4/11 14:00:00
--  

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

 


--  作者:有点蓝
--  发布时间:2023/4/11 14:07:00
--  
代码生成的结果没有用到任何地方,当然没有反应了。想做什么功能?
--  作者:zhuxinhui
--  发布时间:2023/4/11 14:16:00
--  

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

生成的结果放在用户列


--  作者:有点蓝
--  发布时间:2023/4/11 14:22:00
--  
没看懂,用户列拆分出来又返回用户列?

从冰箱里拿出一个蛋,然后再放回去,只是为了过过手瘾吗!

另外AddRange、Contains、Remove是集合的用法,不是数组的用法