| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 545 人关注过本帖
标题:[请教]以装载方式加载的表格,如何对行加载COMBO控件,并写入事件
只看楼主 加入收藏
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
结帖率:0
收藏
 问题点数:0 回复次数:9 
[请教]以装载方式加载的表格,如何对行加载COMBO控件,并写入事件
If Used("test")
    Set Deleted On
    This.grdFind.Column2.AddObject('cbocar','combobox')
*!* 设置表格和备注编辑框的数据源
    This.grdFind.RecordSourceType=1
    This.grdFind.RecordSource="test"
Else
    This.grdFind.RecordSource=""
Endif

With This.grdFind
    .AllowCellSelection=.F.
    .ColumnCount=16
    .LockColumns=2
    .DeleteMark=.F.
    .RecordMark=.F.
    .GridLineColor=Rgb(192,192,192)
    .Column1.Header1.Caption="司机安排"
    .Column1.Width=55
    .Column1.BackColor=Rgb(249,249,244)
    .Column2.Header1.Caption="车辆安排"
    .Column2.Width=55
    .Column2.CurrentControl="cbocar"&&
    .Column2.BackColor=Rgb(249,249,244)
    .Column3.Header1.Caption="使用车型"
    .Column3.Width=60
    .Column4.Header1.Caption="事由"
    .Column4.Width=30
    .Column5.Header1.Caption="用车单位"
    .Column5.Width=80
    .Column6.Header1.Caption="用车时间"
    .Column6.Width=100
    .Column7.Header1.Caption="结束时间"
    .Column7.Width=100
    .Column8.Header1.Caption="出发地"
    .Column8.Width=50
    .Column9.Header1.Caption="目的地"
    .Column9.Width=50
    .Column10.Header1.Caption="人数"
    .Column10.Width=10
    .Column11.Header1.Caption="驻"
    .Column11.Width=15
    .Column12.Header1.Caption="备注"
    .Column12.Width=100

    If Used("test")
        .SetAll("DynamicForeColor","IIF(ALLTRIM(test.出车事由)='会议',RGB(0,0,0),;
            IIF(ALLTRIM(test.出车事由)='培训',RGB(0,128,0),RGB(255,0,0)))","Column")
        .Column1.ControlSource="test.状态"
        .Column2.ControlSource="test.回退原因"
        .Column3.ControlSource="test.使用车型"
        .Column4.ControlSource="test.出车事由"
        .Column5.ControlSource="test.用车单位"
        .Column6.ControlSource="test.用车时间"
        .Column7.ControlSource="test.结束时间"
        .Column8.ControlSource="test.出发地点"
        .Column9.ControlSource="test.目的地"
        .Column10.ControlSource="test.用车人数"
        .Column11.ControlSource="test.过夜"
        .Column12.ControlSource="test.备注"
    Endif
Endwith

如何以代码方式加载列控件?
        Column3.CurrentControl = "Combo1", ;
如何以代码方式加载Combo1事件
    PROCEDURE combo1.GotFocus
        *!*    按申请记录使用车型加载人车数据
        thisform.grdTest. 3
        thisform.grdTest.'select export_fa.assetname,export_fa.custodian from export_fa where export_fa.assettype=test.使用车型 into cursor temp'
    ENDPROC






搜索更多相关主题的帖子: 数据源 如何 司机 
2014-01-17 19:38
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
以下代码控件已加载,但是数据源未起作用,不知为什么??
thisform.grdFind.column5.addobject('comboboxcar','combobox')
thisform.grdFind.column5.bound=.t.
thisform.grdFind.column5.CurrentControl = "comboboxcar"
*!*    thisform.grdFind.column5.ControlSource = "test.回退原因"
with thisform.grdFind.
.ColumnCount = 2
.ColumnWidths = "55,35"
.Height = 24
.Left = 33
.Top = 23
.Width = 100
.visible=.t.
.enabled=.t.
.style=0
endwith

*!*    按申请记录使用车型加载人车数据
thisform.grdFind. 1
thisform.grdFind.,b,c,d"&&'select export_fa.assetname,export_fa.custodian from export_fa where export_fa.assettype=test.使用车型 into cursor temp'
thisform.grdFind.()
2014-01-17 22:26
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
創建控件類再建立實例對象啊

授人以渔,不授人以鱼。
2014-01-18 18:44
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
谢谢版主,问题已变,请看
https://bbs.bccn.net/thread-426631-1-1.html
2014-01-18 19:59
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
類代碼沒寫對。把數據庫和表傳上來。

授人以渔,不授人以鱼。
2014-01-18 20:02
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
先谢版主,请帮忙看一看:
2014diaodu.rar (3 KB)
2014-01-18 20:20
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
AllowCellSelection=.F. 去掉。试试。
2014-01-18 20:35
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
谢谢qingfameng,真的是你说的原因
2014-01-18 20:44
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你要下拉,又不允許選擇單元格,自相矛盾。你已找到原因就不給你寫示範了。

[ 本帖最后由 TonyDeng 于 2014-1-18 20:59 编辑 ]

授人以渔,不授人以鱼。
2014-01-18 20:50
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
不知道你彈個確認對話出來幹嘛

授人以渔,不授人以鱼。
2014-01-18 20:56
快速回复:[请教]以装载方式加载的表格,如何对行加载COMBO控件,并写入事件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034447 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved