| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 851 人关注过本帖
标题:求助?请各位高手看看我这段代码的问题?
取消只看楼主 加入收藏
s3178
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2010-4-24
结帖率:40%
收藏
已结贴  问题点数:10 回复次数:1 
求助?请各位高手看看我这段代码的问题?
在输入数据是单击编辑框就会弹出“数据类型不匹配”的对话框?
图片附件: 游客没有浏览图片的权限,请 登录注册

代码如下:
public val t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11
t1=int(val(thisform.edit1.value))
t2=thisform.edit2.value
t3=int(val(thisform.edit3.value))
t4=thisform.edit4.value
t5=val(thisform.edit5.value)
t6=val(thisform.edit6.value)
t7=val(thisform.edit7.value)
t8=val(thisform.edit8.value)
t9=t7*t6
t10=t7*(t8-t7)
t11=int(val(""))
select  kc
if t1=t11
messagebox("请输入编码!")
else
if t1=id
messagebox("该编号已存在,请更换编号!")
else
insert into kc values (t1,t2,t3,t4,t5,t6)
insert into cb values (t1,t9,t10,0,t7,t8)
messagebox("数据添加成功!")
endif
endif
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
thisform.edit8.value=""
搜索更多相关主题的帖子: 代码 
2010-06-12 17:33
s3178
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2010-4-24
收藏
得分:0 
问题已经解决,谢谢。
2010-06-13 10:54
快速回复:求助?请各位高手看看我这段代码的问题?
数据加载中...
 
   



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

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