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

代码如下:
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
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
public val是什么?

★★★★★为人民服务★★★★★
2010-06-12 19:31
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:5 
1 发现楼主爱用Edit控件,这习惯可不一定好
2 public val t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11 修改为 public t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11
3 t2 和 t4 是字符型数据,其他是数值型数据,检查你的表与对应的变量是不是相同的数据类型
4 缺少一条查询语句
select  kc
if t1=t11
messagebox("请输入编码!")
else
if t1=id
修改为
select  kc
if t1=t11
messagebox("请输入编码!")
else
locate all for id=t1
if found()

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-06-12 22:53
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:5 

先按2楼意见, 将 public val 的val去掉~  然后检查一下你的kc表 是否有乱七乱八的链接或索引之类~
再然后, 见下面红字部分, 注意: 数据类型一定要匹配, 数字型对数字型, 字符型对字符型~~

...
...
select  kc
if t1=t11
messagebox("请输入编码!")
else
  loca for ...

if foun()
   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
2010-06-12 22:58
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

我写贴的时候, 还没有看到3楼的贴子, 楼主也可 按3楼方法做~

2010-06-12 23:09
s3178
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2010-4-24
收藏
得分:0 
问题已经解决,谢谢。
2010-06-13 10:54
mailrml
Rank: 2
等 级:论坛游民
帖 子:19
专家分:12
注 册:2010-5-16
收藏
得分:0 
数据类型一定要匹配,你的定义数据类型不匹配。
2010-06-18 16:55
快速回复:求助?请各位高手看看我这段代码的问题?
数据加载中...
 
   



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

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