[求助]动态加载表格控件和数据源 - VFP论坛

zeren

等　级：新手上路
帖　子：13
专家分：0
注　册：2005-9-10
结帖率：0

楼主

已结贴√ 问题点数：10 回复次数：2

[求助]动态加载表格控件和数据源

表格控件可以动态加载，但数据源绑定无效（无法下拉，内容为空），不知原因？

图片附件: 游客没有浏览图片的权限，请登录或注册

代码如下：

程序代码：

Thisform.grid1.RecordSourceType= 4
abc="select * from test into cursor temptest"
Thisform.grid1.RecordSource='&abc'
With Thisform.grid1
    .COLUMN1.Width=180
    .COLUMN2.Width=80
    .COLUMN3.Width=80
    .COLUMN1.HEADER1.Caption='状1态'
    .COLUMN2.HEADER1.Caption='回1退原因'
    .COLUMN3.HEADER1.Caption='使1用车型'
    .COLUMN3.AddObject('cbocar','combobox')
    .COLUMN3.CurrentControl="cbocar"&&设为当前
    .COLUMN3.cbocar.DisplayCount=3
    .COLUMN3.cbocar.RowSourceType=1
    .COLUMN3.cbocar.RowSource="a,b,cf"
    .COLUMN3.cbocar.BoundTo=.T.
    .COLUMN3.cbocar.Value="hgdsh"
    .COLUMN3.cbocar.Visible=.T.&&让其可见
    .COLUMN1.ControlSource='temptest.状态'
    .COLUMN2.ControlSource='temptest.回退原因'
    .COLUMN3.ControlSource='temptest.使用车型'
Endwith