主题：[求助]将CheckedListBox选定的值保存到列

在这个事件设置代码：

http://www.foxtable.com/help/topics/0965.htm

代码为：

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
Tables("表名").Current("级别") = s

人家有点甜让你做个例子，直接帮你写好，你都不愿意，这样好的人，你去哪里找呢？

问题回复的质量和速度，多数是后取决于你提问的质量，有的时候，也有必要配合一下想帮你的人。

你的ListBox是绑定到表的，此时Items返回的是行，不是字符，你要从返回的行总取某列的值：

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
Tables("会员补录").Current("等级") = s
DataTables("会员补录").Save()

输完一行后，用填充：

http://www.foxtable.com/help/topics/0140.htm