Foxtable(狐表)用户栏目专家坐堂 → [求助]集合添加字符


  共有1690人关注过本帖树形打印复制链接

主题:[求助]集合添加字符

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]集合添加字符  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 17:13:00 [只看该作者]

Dim reslt2s As List (of String)

 

改成

 

Dim reslt2s As new List (of String)


 回到顶部