| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 983 人关注过本帖
标题:给表格的列赋数据源
只看楼主 加入收藏
ydxpn123
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-11-7
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:16 
给表格的列赋数据源
select lsb
use
use lsb exclusive
dele all for empty(编号)
pack
set delete off
use
use lsb
select lsb
with thisform.grid1
.columncount=2
.column1.controlsource="编号"
.column2.controlsource="名称"
endwith
请帮帮忙看看,这代码有什么问题,为什么执行了之后表格中没有记录显示
搜索更多相关主题的帖子: 表格 记录 数据源 
2012-12-23 23:37
ydxpn123
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-11-7
收藏
得分:0 
select lsb
use
use lsb exclusive
dele all for empty(编号)
pack
set delete off
use
use lsb
select lsb
with thisform.grid1
.columncount=2
.column1.controlsource="编号"
.column2.controlsource="名称"
endwith
请帮帮忙看看,这代码有什么问题,为什么执行了之后表格中没有记录显示
表中有记录是不符合条件删除的
2012-12-23 23:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
先将数据表[LSB]加入表单的数据环境中,然后在表格控件的INIT事件中写入以下代码:
程序代码:
WITH THISFORM.GRID1
     .COLUMNCOUNT=2
     .RECORDSOURCE=[LSB]
     .RECORDSOURCETYPE=1
ENDWITH

坚守VFP最后的阵地
2012-12-23 23:46
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
传上表单看看

坚守VFP最后的阵地
2012-12-23 23:47
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
thisform.refresh
2012-12-23 23:55
ydxpn123
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-11-7
收藏
得分:0 
sdta,你的代码还是不行,我不知道我为什么上传不了图片,表单我没法传
2012-12-23 23:55
ydxpn123
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-11-7
收藏
得分:0 
刷新表单的方法早就用过了
2012-12-23 23:58
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:0 
以下是引用ydxpn123在2012-12-23 23:45:15的发言:

select lsb
use
use lsb exclusive
dele all for empty(编号)
pack
set delete off
use
use lsb
select lsb
with thisform.grid1
.columncount=2
.column1.controlsource="编号"
.column2.controlsource="名称"
endwith
请帮帮忙看看,这代码有什么问题,为什么执行了之后表格中没有记录显示
表中有记录是不符合条件删除的
这段代码有啥问题呢,我研究了一下,问题主要有两方面:1、如sdta版主所说,表文件没有设置为打开。解决方法:RecordSourceType属性设为0—表,RecordSource属性设为表文件名。顺便说一下RecordSourceType属性设为0和1的区别:“0—表”在表单执行时可以自动打开表文件;而“1—别名”不会自动打开,需要在表单的Load或Init事件中用USE命令手动打开。2、你代码中关于列序的方面有错误,倒数第三、二行应该写为:.column(1).controlsource="编号"、.column(2).controlsource="名称"。
按这个修改完以后,你再运行表单试试。有问题再问。

2012-12-24 08:20
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
select lsb
thisform.grid1.recordsource="lsb"
thisform.grid1.recordsourcetype=1
thisform.refresh
2012-12-24 08:28
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:10 
试试:

SELECT lsb
USE lsb exclusive
DELETE all for empty(编号)
WITH thisform.grid1
    .RecordSource=null
    pack
    set delete off
    .RecordSource="lsb"
    .columncount=2
    .column1.controlsource="编号"
    .column2.controlsource="名称"
ENDWITH
thisform.refresh


[ 本帖最后由 qjbzjp 于 2012-12-24 09:20 编辑 ]

相互学习,互相交流,共同提高。
2012-12-24 08:28
快速回复:给表格的列赋数据源
数据加载中...
 
   



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

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