| 以文本方式查看主题 - 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=146578) |
| -- 作者：江南小镇 -- 发布时间：2020/2/26 20:44:00 -- [求助]组合框 老师好，怎样让组合框下拉内容用代码强行往上显示。 |
| -- 作者：sloyy -- 发布时间：2020/2/26 20:57:00 -- 走马灯循环显示? |
| -- 作者：江南小镇 -- 发布时间：2020/2/26 22:09:00 -- 老师，还有请求点击ComboBox控件下拉链项目后把该字段赋值给要打开页签的名称。 |
| -- 作者：程兴刚 -- 发布时间：2020/2/26 22:42:00 -- 列表项目来自于某表，用简码提取！ [此贴子已经被作者于2020/2/26 22:42:14编辑过]
|
| -- 作者：江南小镇 -- 发布时间：2020/2/27 8:32:00 -- 谢谢老师，我想把被点击的表名赋值给标签（Label1）控件。 For Each bm As DataTable In DataTables
Dim Tex As String Tex= Tex & "|" & bm.name Dim com7 As WinForm.ComboBox = e.Form.Controls("ComboBox1") com7.ComboList = Tex Next |
| -- 作者：有点蓝 -- 发布时间：2020/2/27 8:38:00 -- 到valuechanged事件给标签赋值即可 |
| -- 作者：江南小镇 -- 发布时间：2020/2/27 8:51:00 -- 谢谢老师，下面代码不起作用。 Dim tj As String = "Select * Fro m {" & e.sender.text & "}" Dim c As String If e.Sender.Text = "入库明细" Then c = "入库日期,80|客户名称,170|经办人,50|商品名称,70|规格,60|入库_数量,60|入库_单价,50|入库_单位,50|合计金额,70|开票日期,80|发票名称,70|发票号码,80" Else If e.Sender.Text = "入库" Then c = "编号,60|入库单编号,80|记录日期,80|供应商,190|来源,60|经办人,50|结算方式,80|入库_数量,60|入库_价税合计,70" End If Tables("系统_Table6").Fill(tj,"数据库", False)
|
| -- 作者：有点蓝 -- 发布时间：2020/2/27 8:56:00 -- 没看懂这个代码要干嘛 |
| -- 作者：江南小镇 -- 发布时间：2020/2/27 16:59:00 -- 老师，上面代码是设置列宽的。现在没有作用。 |
| -- 作者：sloyy -- 发布时间：2020/2/27 17:05:00 -- 少了设置列宽的语句 Tables("系统_Table6").SetColVisibleWidth(c) |