| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1062 人关注过本帖
标题:请帮助查找表单存在的问题
只看楼主 加入收藏
wang670528
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-24
收藏
得分:0 
谢谢黑侠老师!
试验,通过了。非常感谢。
还有一点小问题,在查询未开始时,我想让序号......接收民警的lable和text都为隐藏状态。点查询按钮后,这些为显现状态,而combo1和text1为隐藏状态。
修改按钮的click代码:
a=alltrim(thisform.Text3.value)
b=alltrim(thisform.Text4.value)
c=alltrim(thisform.Text5.value)
d=alltrim(thisform.Text6.value)
e=alltrim(thisform.Text7.value)
f=alltrim(thisform.Text8.value)
g=alltrim(thisform.Text9.value)
h=alltrim(thisform.Text10.value)
i=alltrim(thisform.Text11.value)
j=alltrim(thisform.Text12.value)
k=alltrim(thisform.Text13.value)
l=alltrim(thisform.Text14.value)
m=alltrim(thisform.Text15.value)
n=alltrim(thisform.Text16.value)
if empty(b)
   messagebox("姓名不可以修改为空值",16,"系统提示")
   return
endif
msg=messagebox('确定要修改记录吗?',32+4,'系统提示')
if msg=6
   go recno()
   replace jg.批文文号 with a,jg.姓名 with b,jg.姓名 with c,jg.姓名 with d,jg.姓名 with e,jg.姓名 with f,jg.姓名 with g,jg.姓名 with h,jg.姓名 with i,jg.姓名 with j,jg.姓名 with k,jg.姓名 with l,jg.姓名 with m,jg.姓名 with n
   messagebox("修改记录成功",16,"系统提示")
   thisform.grid1.refresh
   
    .T.
   thisform.Text1.enabled=.t.
   this.enabled=.f.
   thisform.Text2.visible=.f.
   thisform.Text3.visible=.f.
   thisform.Text4.visible=.f.
   thisform.Text5.visible=.f.
   thisform.Text6.visible=.f.
   thisform.Text7.visible=.f.
   thisform.Text8.visible=.f.
   thisform.Text9.visible=.f.
   thisform.Text10.visible=.f.
   thisform.Text11.visible=.f.
   thisform.Text12.visible=.f.
   thisform.Text13.visible=.f.
   thisform.Text14.visible=.f.
   thisform.Text15.visible=.f.
   thisform.Text16.visible=.f.
   thisform.Label3.visible=.f.
   thisform.label4.visible=.f.
   thisform.Label5.visible=.f.   
   thisform.Text1.value=""
   thisform.Text1.setfocus
endif
很长,很麻烦的。
请帮忙简化一下,谢谢!
2010-03-03 21:37
wang670528
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-24
收藏
得分:0 
试车成功,谢谢老师。
2010-03-04 20:34
快速回复:请帮助查找表单存在的问题
数据加载中...
 
   



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

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