主题：复选列表框合成表达式

求教：要从复选列表框选中项合成这样的字符串：         日期|90|产品|120|客户|120|数量|60

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

现在的结果是              

去掉红色的结果是“             |日期|60|产品|60|客户|60|数量|60

这段代码哪里错了？

这样改了，达到了效果，但逻辑对吗？求大侠指教：

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each idx As Integer In l.CheckedIndices
If s = "" Then
s = l.Items(idx)
Else
s = s & "|" & l.Items(idx)
End If
If s > "" Then
s = s & "|60"
End If
Next
MessageBox.show(s)

在上述合成的基础上，后两句代码不起作用？

Dim mt As String = e.Form.Controls("ComboBox1").value
Dim dt As Table = Tables(mt)
'Tables(mt).SetColVisibleWidth(" & s & ")
Tables("窗口5_table1").DataSource = DataTables(mt)
Tables("窗口5_table1").SetColVisibleWidth(" & s & ")
Tables("窗口5_table1").AutoSizeCols()

求教：动态选择表，动态选择列，显示到（在绑定到）窗口表