| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1590 人关注过本帖
标题:表单调用的问题
只看楼主 加入收藏
陈鉴深
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2020-1-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
表单调用的问题
图片附件: 游客没有浏览图片的权限,请 登录注册

这张表单运行后,按新增按钮,可以调用另一种表单:
图片附件: 游客没有浏览图片的权限,请 登录注册

但是在第二张表里输入信息保存后,记录无法添加进数据库的表里。
有没有大佬指点指点qvq非常感谢
搜索更多相关主题的帖子: 记录 表单 表里 添加 调用 
2020-01-07 18:48
陈鉴深
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2020-1-7
收藏
得分:0 
*——接收两个参数
PARAMETERS sMode,sPNo
sMode=""
sPNo=0
IF sMode="new"
   SELECT ProInfo
   SET FILTER TO
   *——计算新的商品编号
   IF EOF().AND.BOF().or.reccount()=0
     sPNo="000000"
   ELSE
     GO bottom
     sPNo=商品编号
   ENDIF
   sPNo=AutoInc(pNo)
   *——新增空白记录
   APPEND BLANK
   *——使用计算出的编号
   replace 商品编号 WITH sPNo
   *——修改表单标题
   this.Caption="商品信息新增"
   *——保存表单状态
   thisform.formmode="new"
   thisform.Refresh
   RETURN
ENDIF
IF sMode="modify"
   *——修改表单标题
   this.Caption="商品信息修改"
   *——查询商品信息
   SELECT ProInfo
   LOCATE FOR 商品编号=sPNo
   IF FOUND()
   ENDIF
   *——保存表单状态
   thisform.txt商品编号.ReadOnly= .T.
   thisform.formmode="modify"
   thisform.Refresh
   return
ENDIF



这是保存按钮的click
2020-01-07 18:54
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10537
专家分:42927
注 册:2014-5-20
收藏
得分:5 
sMode=""

IF sMode="new"   这时是什么意思?

[此贴子已经被作者于2020-1-7 19:00编辑过]

2020-01-07 18:56
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:5 
不要用生成器,或者数据环境托动等,否则会很麻烦

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2020-01-07 19:15
wcx_cc
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:52
帖 子:352
专家分:1152
注 册:2015-10-2
收藏
得分:5 
看了代码后认为:在新增商品的条件时(if sMode="new"时),如果 ProInfo 是保存最终数据的表,不应该有问题。但最好在 replace 之后,加上一句关闭表的代码(use orclos all),使数据最终保存。   
2020-01-07 19:43
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:763
专家分:2503
注 册:2011-5-8
收藏
得分:5 
3楼说的很清楚了,不论接收的是什么参数,sMode=""之后。下面的语句都不可能执行了。

dBase有人接盘了。
2020-01-07 20:08
快速回复:表单调用的问题
数据加载中...
 
   



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

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