| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 625 人关注过本帖
标题:新手疑问,请各位狐友帮帮忙!!!!
只看楼主 加入收藏
dt_1220
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-12-6
收藏
 问题点数:0 回复次数:4 
新手疑问,请各位狐友帮帮忙!!!!
图片附件: 游客没有浏览图片的权限,请 登录注册

如图:
我在公司编写了一个代开增值税发票申请表的程序,表单里上面显示客户的开票资料,下面列表框客户要开发票的产品清单。
有两个表,KHZL.DBF(客户资料)、DKFP.DBF(代开发票)
KHZL:公司名称,地址,电话......DKFP:公司名称,地址电话........
疑问:
1、以下是我点第二个按钮的程序,按钮目的:到前个客户资料处,当到了第一个客户资料处时第一第二个按钮不起作用
SKIP -1
IF BOF()
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.
ENDI
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.
THISFORM.REFRESH
可是我的程序结果是到了第一个客户资料后要再点一下第一第二个按钮才不起作用,请问怎么解决?
2、以下是我点第三个按钮的程序,按钮目的:到后个客户资料处,当到了最后个客户资料处时第三第四个按钮不起作用,显示最后一个客户资料
SKIP
IF EOF()
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.
ENDI
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.
THISFORM.REFRESH
程序结果是到了最后一个客户后要再点一下第三第四个按钮才不起作用,而且显示资料处无任何显示,请问怎么解决?
3、以下是我在第四个按钮的程序(到最后一个客户资料处),当我点到最后时我想让上面的客户资料处显示的是最后一个客户的资料。
THIS.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.
GO BOTTOM
THISFORM.REFRESH
程序结果显示资料处无任何显示,请问怎么解决?
4、点第八个按钮用于删除列表框里的一条记录,点了删除后列表框里还显示删除的记录,非要在表单里点一下列表框才更新,怎么解决列表框更新问题?
SELECT DKFP
DELETE
THISFORM.GRID1.REFRESH
IF MESSAGEBOX('真的要删除吗?',48+4,'信息提示')=6
ELSE
RECALL
ENDI
THISFORM.DISP
THISFORM.REFRESH
搜索更多相关主题的帖子: 疑问 
2005-12-06 15:54
兵兵vs野猪
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-11-4
收藏
得分:0 

第4个问题
我想是不是你没在MAIN.PRG里面加
SET DELETED ON哦?
楼主请问你的按钮的图片是怎么加进去的啊
就是几个按钮上的图片,请指教:)


2005-12-06 18:37
wsjzabc
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2005-8-6
收藏
得分:0 
我想应该是这样:
skip-1
if bof()
THISFORM.COMMANDGROUP1.Command2.enabled=.f.
THISFORM.COMMANDGROUP1.Command1.enabled=.f.
else
THISFORM.COMMANDGROUP1.Command2.enabled=.t.
THISFORM.COMMANDGROUP1.Command1.enabled=.t.
endif
THISFORM.COMMANDGROUP1.Command3.enabled=.t.
THISFORM.COMMANDGROUP1.Command4.enabled=.t.
其它,类推即可。

2005-12-08 08:48
dt_1220
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-12-6
收藏
得分:0 
我在主表单LOAD和init里都加了SET DELETE ON
按钮图标是VF6。0自带的,在按钮属性PICTURE里加=HOME()+"WIZARDS\WIZBMPS\WZlocate.BMP"
WZLOCATE。BMP是图标文件名
2005-12-12 10:16
dt_1220
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-12-6
收藏
得分:0 
555555我按你的方案试了,还是不行
2005-12-12 10:18
快速回复:新手疑问,请各位狐友帮帮忙!!!!
数据加载中...
 
   



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

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