| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1091 人关注过本帖
标题:vfp怎么让页框的第二页作为首页以及表单空白问题
只看楼主 加入收藏
隔壁的土豆
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
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
回复 13楼 隔壁的土豆
这是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

2013-11-30 10:33
隔壁的土豆
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
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
回复 12楼 隔壁的土豆
修改下红色部份

IF NOT USED('系统管理员数据表')
    USE 系统管理员数据表 IN 0 &&修改这句
ENDIF
select 系统管理员数据表
* 用户管理.grid1.recordsource = NULL &&删除这句
if empty(thisform.text1.value)
 messagebox("新用户名",48,"警告")
   else
     if empty(thisform.text2.value)
        messagebox("密码不能为空",48,"警告")
     else
       if empty(thisform.text3.value)
          messagebox("确认密码不能为空",48,"警告")
       else   
          if alltrim(thisform.text2.value) <> alltrim(thisform.text3.value)
             messagebox("输入的密码不一致!请重新输入",48,"警告")
             thisform.text2.value = ""
             thisform.text3= value = ""
             thisform.text2.setfocus
            
             else
              append blank
                replace 账号 with alltrim(thisform.text1.value)
                replace 密码 with alltrim(thisform.text2.value)
                replace 管理员 with thisform.optiongroup1.value = 1
                replace 只读用户 with thisform.optiongroup1.value = 2
                replace 普通用户 with thisform.optiongroup1.value = 3
               
               
               
               
               replace 班级与学生档案管理 with thisform.check1.value
              replace 学生缴费管理 with thisform.check2.value
              replace 课程与成绩管理 with thisform.check3.value
               
               
               
               
               
                  messagebox("添加成功",48,"恭喜")
                  thisform.text1.value = ""
                  thisform.text2.value = ""
                  thisform.text3.value = ""
                endif
           endif
       endif
     endif
     
     
                   select 系统管理员数据表  &&修改这句
                       go top
                     用户管理.Refresh



[ 本帖最后由 bccn0906 于 2013-11-30 10:43 编辑 ]
2013-11-30 10:41
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
以下是引用隔壁的土豆在2013-11-30 10:41:16的发言:

 
 
 
您好,我把代码写上去后    go top t1   会显示语法错误,     那应该怎么写呢?
go top in t1   
2013-11-30 10:42
隔壁的土豆
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
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
回复 19楼 隔壁的土豆
.....

[ 本帖最后由 bccn0906 于 2013-11-30 15:54 编辑 ]
2013-11-30 15:36
快速回复:vfp怎么让页框的第二页作为首页以及表单空白问题
数据加载中...
 
   



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

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