第一种方式不知道对不对;第二种方式只写了复选列表框的部分代码。请老师指教:
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
附件: