以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]集合添加字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114664) |
-- 作者:blsu33 -- 发布时间:2018/2/12 16:34:00 -- [求助]集合添加字符 老师, 有段代码怎么写都不对,没看出明显问题,绿色的部分会显示 往后就没有了,为什么呢? .NET Framework 版本:2.0.50727.5420 Foxtable 版本:2017.12.31.1 错误所在事件:自定义函数111111 详细错误信息: 调用的目标发生了异常。 未将对象引用设置到对象的实例。 Dim reslt1s As List (of String)=dt2.GetValues("menuid","[id] like\'"& dr("id") &"%\'","") Dim reslt2s As List (of String) \'生成菜单表 MessageBox.Show(1) For Each reslt As String In reslt1s If reslt<>"" Then MessageBox.Show(reslt)’ If reslt2s.Contains(reslt.SubString(0,4))=False Then MessageBox.Show(2) reslt2s.Add(reslt.SubString(0,4)) End If End If Next MessageBox.Show(3) 在命令窗口 如下测试 Dim reslt1s As List (of String) Dim reslt2s As List (of String) reslt1s.Add( "电视机123") reslt1s.Add("电冰箱456") For Each reslt As String In reslt1s If reslt<>"" Then If reslt2s.Contains(reslt.SubString(0,4))=False Then reslt2s.Add(reslt.SubString(0,4)) End If End If Next 也有错误,不知道怎么回事 [此贴子已经被作者于2018/2/12 16:55:54编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/2/12 17:13:00 -- Dim reslt2s As List (of String)
改成
Dim reslt2s As new List (of String) |