| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 452 人关注过本帖
标题:表单运行后的问题~谢谢!
取消只看楼主 加入收藏
santu2006
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2006-8-6
收藏
 问题点数:0 回复次数:0 
表单运行后的问题~谢谢!

控件:command1 过程:click
____________________________________________________
close tables
select 1
use ry

cbh = thisform.pageframe1.page1.text1.value
cbh2 = thisform.pageframe1.page1.text6.value
if len(alltrim(cbh)) < 6 or len(alltrim(cbh2))< 6 or alltrim(cbh) != alltrim(cbh2)
messagebox("编号有误或两次输入不一致!请核对!")
return
else
cbh1 = thisform.pageframe1.page1.text1.value
if len(allt(cbh1)) != 6
messagebox("编号长度不够!")
return
endif
go top
locate for alltri(bh) = alltri(cbh1)
if found()
messagebox("数据库中已存在此编号!")
this.value=" "
return
else
go bottom
endif
endif

cbh = thisform.pageframe1.page1.text1.value
cxm = thisform.pageframe1.page1.text2.value
cxh = thisform.pageframe1.page1.text3.value
cxb = thisform.pageframe1.page1.optiongroup1.value
ccsny = thisform.pageframe1.page1.text5.value
czzmm = thisform.pageframe1.page1.combo3.value
cbj = thisform.pageframe1.page1.text4.value
czy = thisform.pageframe1.page1.label18.caption
cfdy = thisform.pageframe1.page1.label19.caption
ctjr = thisform.pageframe1.page1.label24.caption
cssh = thisform.pageframe1.page1.text7.value
csst = thisform.pageframe1.page1.text8.value
cmpn = thisform.pageframe1.page1.text9.value
cxlt = thisform.pageframe1.page1.text10.value
cmail = thisform.pageframe1.page1.text11.value
cq = thisform.pageframe1.page1.text12.value
cbm = thisform.pageframe1.page1.combo1.value
czw = thisform.pageframe1.page1.combo2.value
cah = thisform.pageframe1.page2.edit1.value
ctc = thisform.pageframe1.page2.edit2.value
cqt = thisform.pageframe1.page2.edit3.value

insert into ry values(cbh,cxm,cxh,cxb,ccsny,czzmm,cbj,czy,cfdy,ctjr,cbm,czw,cah,ctc,cqt).............(错误1)
insert into lxb values(cbh,cxm,cbm,czw,cssh,csst,cmpn,cxlt,cmail,cq)......................(错误2)
thisform.release
do form xxlr.scx...........................(错误3)
___________________________________________________________________________

错误提示:
1.必须指定额外参数!
2.必须指定额外参数!
3.文件正在被使用!


麻烦大家看看,谢谢!

搜索更多相关主题的帖子: 表单 运行 
2006-08-08 20:35
快速回复:表单运行后的问题~谢谢!
数据加载中...
 
   



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

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