以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CheckedListBox求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74368)
--  作者：ljh29206
--  发布时间：2015/9/9 15:37:00
--  CheckedListBox求助

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
    If s > "" Then
        s = s & ","
    End If
    s = s  & l.Items(Index)
Next


Forms("空滤计划管理").Controls("条件").text = s
e.Form.Close

 

提示：没有为 \'Nothing\' 和 类型“DataRowView” 定义运算符“&”。

 

以上代码不知道错在哪里 ！

 
--  作者：大红袍
--  发布时间：2015/9/9 15:40:00
--  

如果你ListBox来自数据表，就这样写

 

s = s  & l.Items(Index)("列名")