- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口求助。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144431)
-- 发布时间：2019/12/19 16:52:00
-- 窗口求助。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
如何把上面的三段段代码，1、同时放在窗口AfterLoad生效？ 2、有更优的解决方法或代码吗？ 谢谢！
-- 发布时间：2019/12/19 16:56:00
--
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S ELECT DISTINCT 率 From {评分标准}"
Tables("单次来电_Table4").Cols("率").Combolist = cmd.ExecuteReader.GetComboListString("率")
Tables("单次来电_Table4").Cols("姓名").DropForm = "窗口1"
cmd.CommandText = "S ELECT DISTINCT 电话号码 From {来电记录}"
Dim cmb As WinForm.ComboBox = e.form.Controls("cmbEmployee")
cmb.ComboList = cmd.ExecuteReader.GetComboListString("电话号码")
cmd.CommandText = "S ELECT DISTINCT 姓名 From {来电记录}"
cmb = e.form.Controls("cmbEmployee")
cmb.ComboList = cmd.ExecuteReader.GetComboListString("姓名")
[此贴子已经被作者于2019/12/19 16:58:06编辑过]