在输入数据是单击编辑框就会弹出“数据类型不匹配”的对话框？
代码如下：
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=""

public val是什么？

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()

先按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

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

问题已经解决，谢谢。

数据类型一定要匹配,你的定义数据类型不匹配。