| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1091 人关注过本帖
标题:vfp怎么让页框的第二页作为首页以及表单空白问题
取消只看楼主 加入收藏
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:10 
vfp怎么让页框的第二页作为首页以及表单空白问题
首先:    是这样的,我做了个菜单,我想让某一菜单能调出该表单并且让该表单里的页框中的第二页作为首页,
          在菜单里的过程代码中应该怎么编写?


另外:
              if thisform.check3.value =1
                  replace 课程与成绩管理 with .t.
              else
                  replace 课程与成绩管理 with .f.
              endif
      换成   replace 课程与成绩管理 with thisform.check3.value 就错了, 但是为什么这句话是错误的? 难道VFP不能把数字直接换成逻辑值么?


最后:     我想问怎么能让表单不要显示空白?
   
        经过前辈的指点,只要在  修改或者添加 前写上   
        thisform.grid1.recordsource = null  在修改或者添加后 写
        thisform.grid1.recordsource = "表"
        thisfrom.refresh
       就好了,我试过后发现,嘿,真的不空白了,但是!

       表单里只能存储一个记录了。无论我添加多少个,表中只显示最新添加的记录


      求各位前辈指点,尽量告诉我方法我一个个试就好,如果需要讲解原理的话。。。尽量减少专业术语。。。
      
        还想问一个问题,combo1 里头的所有内容应该是它的什么属性?
     我想让combo1里的内容能随着combo2.value而变化   
  ???(应该写什么) = "select 班级 from 班级管理 where 系别 = alltrim()"

   这句话对不对呢?
搜索更多相关主题的帖子: 课程 replace 
2013-11-29 22:52
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
回复 3楼 sdta
额。。不好意思,打太多字打晕了,是表格变空白了
2013-11-30 08:43
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用sdta在2013-11-29 23:05:44的发言:

第二页做为首页:
表单的INIT事件
THISFORM.PAGEFRAME1.ACTIVEPAGE=2

什么叫表单空白?



管用!谢谢!
2013-11-30 09:56
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用bccn0906在2013-11-30 08:02:26的发言:

初始CHECK3的值,让它成为逻辑型
这样就可以 replace 课程与成绩管理 with thisform.check3.value




管用!!谢谢!!!
2013-11-30 09:57
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用bccn0906在2013-11-30 08:37:00的发言:

grid在设计时就绑定了数据表,运行时就不要改动了,有个特别注意的地方就是,期间不要对数据表使用 PACK 命令或关闭数据表,如是这样就会出现你所说的空白,
表有多少记录,都会显示的,你试下
select 表
go top
thisform.Refresh





您好,这几句代码是插入在修改后的末尾么?    我打上后,表格仍旧是空白的。。。
select 表
go top
thisform.Refresh[/quote]
您能帮我看看么?
问题.zip (11.02 KB)
2013-11-30 10:06
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用bccn0906在2013-11-30 08:26:38的发言:

尽可能用临时表作为 combo1数据源,改变临时表的内容即可
----------------------------
如: 在combo1 中init的代码:
select 班级 from 班级管理 into cursor t1 READWRITE where .f.
this.RowSourceType= 2
this.RowSource='t1'
-----------------------
在combo2中的InteractiveChange的代码:
zap in t1
insert into t1 (班级) select 班级 from 班级管理 where allt(系别)==allt(this.value)




您好,我将这两个代码稍稍修改运用到里头可是程序说我的语法有错误?
您能帮我看看么

[ 本帖最后由 隔壁的土豆 于 2013-11-30 10:17 编辑 ]
2013-11-30 10:15
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用bccn0906在2013-11-30 10:33:01的发言:

这是VFP9。0代码,VF6。0会报错的,
VF6。0改一下

如: 在combo1 中init的代码:
create cursor t1 (班级 c(20)) &&这长度,按您自己实际调整
this.RowSourceType= 2
this.RowSource='t1'
-----------------------
在combo2中的InteractiveChange的代码:
select 班级 from 班级管理 into cursor t2 where allt(系别)==allt(this.value)
select t1
zap
appe from (dbf('t2'))
use in t2
go top t1



您好,我把代码写上去后    go top t1   会显示语法错误,     那应该怎么写呢?
2013-11-30 10:41
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
回复 16楼 bccn0906
啊啊啊啊啊啊!!!!!!大神!!我总算等到你了!!!!
555555555555555555555555
相见恨晚啊!!!
2013-11-30 10:48
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
以下是引用bccn0906在2013-11-30 10:42:16的发言:

go top in t1   



前辈,我刚刚运行了下,
结果出现这样子
图片附件: 游客没有浏览图片的权限,请 登录注册


您能再帮我改改么
问题.zip (10.05 KB)


其中还有个问题很困扰,
就是修改表格里的记录的时候只能修改第一条,怎么修改用鼠标确定的那条记录呢?
2013-11-30 10:53
隔壁的土豆
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2013-11-27
收藏
得分:0 
回复 21楼 bccn0906
额。。。。

我记起来了。。当初只是想试试打个东西运行时combo1的样子后来忘改回来了,
原来搞了个乌龙啊。。。。
2013-11-30 16:58
快速回复:vfp怎么让页框的第二页作为首页以及表单空白问题
数据加载中...
 
   



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

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