本人大一，上VFP的课，老师留给我们一个作业，就是做用表单给表添加记录。。我大概是笨了点，怎么弄都弄不出来。。
还麻烦各位帮忙看看，这个怎么错了呢。。。- -先谢谢了

表单长这样

我写的“添加”的代码这样


老师给你要求这样：  添加记录表单。根据输入的数据，可以对指定的数据表添加记录。
    本表单设计要求：
（1）添加记录成功应有提示信息框。
（2）如能先在表单中进行不同数据表的选择，然后再对选定的数据表添加记录者为佳。


哎，多谢了。。

我确信我没有打开那个“个人信息表”。
选择表我是另做的一个表单，用按钮组做的选择。。数组那个东西无论如何我也用不起来。。不过马上我试试你的，看看行不行。。
还是没懂为什么会出那个 “文件正在使用”……第三条我也没理解。。。哎

不过还是谢谢你了，我再研究研究去。

还是不行啊，继续求助！！！

现在又出了个问题，就是添加记录时会出现“数据类型不匹配”，但是，在表中还能查到刚刚添加的记录。请问这怎么办诶！

a=thisform.pageframe1.page1.text1.value
b=alltrim(thisform.pageframe1.page1.text7.value)
c=thisform.pageframe1.page1.text4.value
d=alltrim(thisform.pageframe1.page1.text2.value)
e=alltrim(thisform.pageframe1.page1.text3.value)
f=alltrim(thisform.pageframe1.page1.text6.value)
sele 个人信息
go top
locate for 个人信息.编号==a
if found()
    messagebox("记录存在！",[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]0[/color][/color][/color]+[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]16[/color][/color][/color]+[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]0[/color][/color][/color],"错误")
else
    insert into 个人信息 values(a,b,d,c,e,f)
    messagebox("添加成功！",[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]0[/color][/color][/color]+[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]64[/color][/color][/color]+[color=#800000; font-weight: bold][color=#800000; font-weight: bold][color=#800000; font-weight: bold]0[/color][/color][/color],"提示")
endif
    thisform.pageframe1.page1.text1.value=""
    thisform.pageframe1.page1.text2.value=""
    thisform.pageframe1.page1.text3.value=""
    thisform.pageframe1.page1.text4.value=""
    thisform.pageframe1.page1.text6.value=""
    thisform.pageframe1.page1.text7.value=""

多谢几位了。。不过代码改成这个样子了。。。文本框的设置 数值型的数据类型也改成了“数值型”，还是数据类型不匹配
用val函数也是。。继续求救。。
六个文本框，2个数值型，一个备注型，还有3个是字符型
每次添加时都是跳出3个“数据类型不匹配”的框框。。但是还是能成功添加进表里去。。这是咋回事诶。。。多谢了

[ 本帖最后由 棋只 于 2010-6-10 21:37 编辑 ]

a=val(thisform.pageframe1.page1.text1.value)
b=alltrim(thisform.pageframe1.page1.text7.value)
c=val(thisform.pageframe1.page1.text4.value)
d=alltrim(thisform.pageframe1.page1.text2.value)
e=alltrim(thisform.pageframe1.page1.text3.value)
f=alltrim(thisform.pageframe1.page1.text6.value)
sele 个人信息
go top
locate for 个人信息.编号==a
if found()
    messagebox("记录存在！",0+16+0,"错误")
else
    insert into 个人信息 values(a,b,d,c,e,f)
    messagebox("添加成功！",0+64+0,"提示")
endif
    thisform.pageframe1.page1.text1.value=0
    thisform.pageframe1.page1.text2.value=" "
    thisform.pageframe1.page1.text3.value=" "
    thisform.pageframe1.page1.text4.value=0
    thisform.pageframe1.page1.text6.value=" "
    thisform.pageframe1.page1.text7.value=" "


真的不可以。。。真的。。。真的。。我错了……真的还是跳出三个“数据类型不匹配”

----------------------------
我找到原因了。表的索引的设置有问题。。把索引都删了，数据类型不匹配的提示也就没了。谢谢楼上诸位了

[ 本帖最后由 棋只 于 2010-6-11 06:39 编辑 ]