- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何把列值改成数组 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=186178)
-- 发布时间：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
--
帮助搜“空值”，学一下怎么判断单元格是否是空值
-- 发布时间：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
-- 发布时间：2023/4/11 13:56:00
--
Dim nms1() As String = nr("用户").split(",")
现在应该是怎样才能把列值改成数组
-- 发布时间：2023/4/11 13:58:00
--
只要单元格有值，4楼这个代码没有问题。执行有什么错误？
-- 发布时间：2023/4/11 13:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2023/4/11 14:00:00
--
就是没有反应的，我用MEBOX测试过是这句有问题
-- 发布时间：2023/4/11 14:07:00
--
代码生成的结果没有用到任何地方，当然没有反应了。想做什么功能？
-- 发布时间：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
--
没看懂，用户列拆分出来又返回用户列？