以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  listview的分隔符应该怎么控制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98709)
--  作者：jinzhengbe
--  发布时间：2017/4/5 15:41:00
--  listview的分隔符应该怎么控制
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vls As String = ""
For Each vr As WinForm.ListViewRow In lvw.CheckedRows
    vls = vls & "@" & vr.tag("pic")
      vr.tag("gongxiang")= "0" 
Tables("商城.商品").Filter = "[gongxiang] = \'1\'"
Tables("商品").Filter = "[gongxiang] = \'1\'"
Next



e.Form.DropDownBox.Value = vls.Trim(",")
e.Form.DropDownBox.CloseDropdown()


代码如上， 感觉使用黄色的部分控制的

因为所有被选项中间都用@ 分隔开了

但是问题是，第一个数据前面也会加@

所有数据都是以@开头的

有没有办法让第一个数据不带@啊？？
请问这种应该怎么处理？
--  作者：wyz20130512
--  发布时间：2017/4/5 16:32:00
--  
删除最后生成的字符串的首“@”首字符即可。
s = s.Trim("@")