主题：[求助]利用代码向选择的接收人发送信息

第一种方式不知道对不对；第二种方式只写了复选列表框的部分代码。请老师指教：

1、按照窗口表的列值发送信息：

Dim Arys As List(Of String()) = DataTables("计划安排").GetValues("工作组|作者", Tables("计划安排").filter)    '获取不重复列值
For Each Ary As String() In Arys
QQClient.Send(Ary(0) & "." & Ary(1),e.Form.Controls("TextBox1").text,True)   '可离线发送
Next

2、按照复选列表框勾选的值发送信息：
复选列表框AfterLoad----取所有用户组.用户名，Message显示正确，但列表框显示不对，按钮代码不会写
For Each us As UserInfo In Users
    'MessageBox.Show(us.Group &"."& us.Name)
    Dim cmb As WinForm.CheckedComboBox
    cmb = Forms("窗口1").Controls("CheckedComboBox1")
    cmb.ComboList = us.Group &"."& us.Name
  
Next

此主题相关图片如下：image 1.jpg

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:选择发送.table

因为获取的us.Group &"."& us.Name字数太多，不容易查找勾选，所以，假如我在列表框获取的值“s”是UserName，怎样把string格式转变为UserInfo？

Dim ary() As String = e.Form.Controls("CheckedListBox1").Value.split(",")   '复选列表框
For Each s As String In Ary
    msgbox(s)
    'For Each  s As UserInfo In Users    

        QQClient.Send(s.Group &"."& s.Name,e.Form.Controls("TextBox1").text,True)   '可离线发送

Next