| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]窗口组合框控件赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104820) |
| -- 作者：紫色幽魂 -- 发布时间：2017/8/5 22:11:00 -- [求助]窗口组合框控件赋值 请问窗口组合框控件怎么赋值，菜单组合框可以用add增加，窗口控件应该怎么做 |
| -- 作者：有点甜 -- 发布时间：2017/8/6 11:37:00 --
Dim cbx = e.form.controls("combobox1") cbx.Items.add("aaa") cbx.Items.add("bbb") |
| -- 作者：紫色幽魂 -- 发布时间：2017/8/7 22:30:00 -- 回复：（有点甜） Dim cbx = e.form.controls(... 我要给他赋值，但是会出现问题，应该要怎么改 For Each c As Col In Tables("表A").Cols If c.Name.StartsWith("日期_") Then Dim b = e.form.Controls("开始日期输入框") b.Text = c.Name.Remove(0,3) b.Items.add(c) End If Next
|
| -- 作者：有点蓝 -- 发布时间：2017/8/7 22:37:00 -- Dim b = e.form.Controls("开始日期输入框") For Each c As Col In Tables("表A").Cols If c.Name.StartsWith("日期_") Then b.Items.add(c.Name.Remove(0,3)) End If Next
|
| -- 作者：紫色幽魂 -- 发布时间：2017/8/9 22:49:00 -- 回复：（有点蓝）Dim b = e.form.Controls("开始日期输... 谢谢! 虽然我感觉下面的那两个代码没啥区别，但是确实解决了问题
|
| -- 作者：有点蓝 -- 发布时间：2017/8/10 8:52:00 -- 完全不是一回事。应该要添加列的名称，而不是列本身 |