| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 423 人关注过本帖
标题:[找错]编程方式加载的控件属性和事件不执行,不知错在何处?
只看楼主 加入收藏
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
结帖率:0
收藏
已结贴  问题点数:10 回复次数:4 
[找错]编程方式加载的控件属性和事件不执行,不知错在何处?
程序代码:
IF !USED("export_fa")
USE export_fa EXCLUSIVE
ENDIF

IF !USED("test")
USE test EXCLUSIVE
ENDIF

frm_Test = CREATEOBJECT("Form")
WITH frm_Test
    .AutoCenter = .T.
    .Top = 0
    .Left = -1
    .Height = 786
    .Width = 1233
    .Caption = "2014车辆调度系统"
    .Name = "Form1"
   
    .AddObject("grdFind", "gridclass1")
    WITH .grdFind
        .Visible = .T.
        .Height = 200
        .Left = 12
        .Panel = 1
        .Top = 12
        .Width = 1212
        .HighlightBackColor = RGB(46,74,153)
        .HighlightStyle = 2
        .Name = "grdFind"
        .AllowCellSelection=.F.
        .ColumnCount=12
        .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
********此段增加cbocar的代码有什么问题,为何combo控件不能下拉出数据
        .Column2.AddObject("cbocar", "cbocarclass1")
        .Column2.CurrentControl="cbocar"&&设为当前       
        WITH .Column2.cbocar
        .rowsourcetype=1
        .rowsource='a,b,c,d'
*!*            .GotFocus    &&如何让此处代码执行
        .enabled=.t.
        .visible=.t.
        ENDWITH
********
        .Column2.BackColor=Rgb(249,249,244)
        .Column3.Header1.Caption="使用车型"
        .Column3.Header1.BackColor=RGB(255,0,0)
        .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
       
        .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.备注"
    ENDWITH
    .Show(1)
ENDWITH
RETURN 

* 父類定義
DEFINE CLASS gridclass1 AS grid
    PROCEDURE Init
        public aa
        Thisform.Refresh
    ENDPROC
   
    PROCEDURE AfterRowColChange
        LPARAMETERS nColIndex
        thisform.Refresh&&为了同步刷新
    ENDPROC

ENDDEFINE

DEFINE CLASS cbocarclass1 AS combobox
    PROCEDURE GotFocus
        *!*    按申请记录使用车型加载人车数据
        this.RowSourceType= 1
        this.RowSource='a,b,c,d'&&'select export_fa.assetname,export_fa.custodian from export_fa where export_fa.assettype=test.使用车型 into cursor temp ORDER BY export_fa.assetname ASC'
        MESSAGEBOX("按申请记录使用车型加载人车数据")
    ENDPROC
ENDDEFINE 


搜索更多相关主题的帖子: color 
2014-01-18 18:55
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:5 
说下出错提示
2014-01-18 19:50
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
加载的combo控件无法展开,且数据未装载,请问如何以代码方式正确加载?
图片附件: 游客没有浏览图片的权限,请 登录注册

谢谢
2014-01-18 19:56
zeren
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-9-10
收藏
得分:0 
2014.rar (3 KB)
2014-01-18 20:35
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
*.AllowCellSelection=.F.
注释掉这行问题就解决了
看下帮助文件中,该属性的详细用法。

[ 本帖最后由 sdta 于 2014-1-25 20:33 编辑 ]

坚守VFP最后的阵地
2014-01-25 20:20
快速回复:[找错]编程方式加载的控件属性和事件不执行,不知错在何处?
数据加载中...
 
   



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

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