vfp怎么让页框的第二页作为首页以及表单空白问题 - VFP论坛

已结贴√ 问题点数：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　

第 2 楼

得分:0

回复 3楼 sdta

额。。不好意思，打太多字打晕了，是表格变空白了

第 3 楼

得分:0

以下是引用sdta在2013-11-29 23:05:44的发言：

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

什么叫表单空白？

管用！谢谢！

第 4 楼

得分:0

以下是引用bccn0906在2013-11-30 08:02:26的发言：

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

管用！！谢谢！！！

第 5 楼

得分: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)

第 6 楼

得分: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 编辑 ]

第 7 楼

得分: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 会显示语法错误，那应该怎么写呢？

第 8 楼

得分:0

回复 16楼 bccn0906

啊啊啊啊啊啊！！！！！！大神！！我总算等到你了！！！！
555555555555555555555555
相见恨晚啊！！！

第 9 楼

得分:0

以下是引用bccn0906在2013-11-30 10:42:16的发言：

go top in t1

前辈，我刚刚运行了下，
结果出现这样子

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

您能再帮我改改么

问题.zip (10.05 KB)

其中还有个问题很困扰，
就是修改表格里的记录的时候只能修改第一条，怎么修改用鼠标确定的那条记录呢？

第 10 楼

得分:0

回复 21楼 bccn0906

额。。。。

我记起来了。。当初只是想试试打个东西运行时combo1的样子后来忘改回来了，
原来搞了个乌龙啊。。。。