- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]组合框取值问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77573)
-- 发布时间：2015/11/20 16:19:00
-- [求助]组合框取值问题
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("Users").GetComboListString("姓名", "Group = \'" & str & "\'")
下面组给框"ComboBox2"内容是由上面事件得到的，下面1行代码如何改，循环运行时分别取得组合框里的每1个姓名
For Each s As String In e.form.controls("ComboBox2").ComboList.split("|")
-- 发布时间：2015/11/20 16:20:00
--
enter 事件
-- 发布时间：2015/11/20 16:41:00
--
求助
-- 发布时间：2015/11/20 17:20:00
--
无法理解你的问题。截图或者上传例子说明你想做什么
-- 发布时间：2015/11/20 18:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:部门群发.foxdb |
-- 发布时间：2015/11/20 19:14:00
--
Dim bm As String = e.Form.Controls("ComboBox1").Value \'获得接收部门名称
Dim nr As String = e.Form.Controls("TextBox1").Value \'获得发送内容
If bm = "" OrElse nr = "" Then
MessageBox.Show("信息不完整,信息无法发送!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
For Each s As String In DataTables("Users").getvalues("姓名", "部门 = \'" & bm & "\'") \'这行代码如何修改,才能群发给某个部门
\'msgbox(s)
Dim d1 As String = Format(Date.now, "yyyy.MM.dd hh:mm")
Dim fs As String
fs =d1 & ":" & nr
Dim fsz As String
fsz=bm & "." & s \'re
QQClient.Send(fsz,fs,True )
fsz=""
fs=""
Next
e.Form.Controls("TextBox1").Value = ""
-- 发布时间：2015/11/20 20:29:00
--
可以了，谢谢！