初学VFP，试做个保存病人资料的程序，但表单的“保存”按钮总出错，请教
初学VFP，试做个保存病人资料的程序，但表单的“保存”按钮总出错，请教！！！执行到INSERT into 病人基本信息 values(t1,t2,c11,t4,o1,t6,t7,c14,c1,c7,c8,c9,t10,t11)
总显示“程序错误，必须指定额外参数”，如果忽略，则能继续执行并保存相关信息，但不显示“保存成功”的提示信息，查了些书也没弄明白错在哪里，请指教，谢谢！！！
t1=thisform.text1.Value
t2=thisform.text2.Value
c11=thisform.combo11.Value
t4=thisform.text4.Value
o1=thisform.optiongroup1.Value
t6=thisform.text6.Value
t7=thisform.text7.Value
c14=thisform.combo14.Value
c1=thisform.combo1.Value
c7=thisform.combo7.Value
c8=thisform.combo8.Value
c9=thisform.combo9.Value
t10=thisform.text10.Value
t11=thisform.text11.Value
t12=thisform.text12.Value
t13=thisform.text13.Value
t14=thisform.text14.Value
c12=thisform.combo12.Value
c13=thisform.combo13.Value
t16=thisform.text16.Value
t17=thisform.text17.Value
t18=thisform.text18.Value
t19=thisform.text19.Value
t21=thisform.text21.Value
t22=thisform.text22.Value
t23=thisform.text23.Value
t24=thisform.text24.Value
c10=thisform.combo10.Value
t26=thisform.text26.Value
c3=thisform.combo3.Value
c4=thisform.combo4.Value
c2=thisform.combo2.Value
t27=thisform.text27.Value
t28=thisform.text28.Value
t29=thisform.text29.Value
t30=thisform.text30.Value
c5=thisform.combo5.Value
t31=thisform.text31.Value
t32=thisform.text32.Value
c6=thisform.combo6.Value
t33=thisform.text33.Value
t34=thisform.text34.Value
t35=thisform.text35.Value
t36=thisform.text36.Value
t37=thisform.text37.Value
t38=thisform.text38.Value
t39=thisform.text39.Value
t40=thisform.text40.Value
t41=thisform.text41.Value
t42=thisform.text42.Value
t43=thisform.text43.Value
t44=thisform.text44.Value
t45=thisform.text45.Value
t46=thisform.text46.Value
t47=thisform.text47.Value
t48=thisform.text48.Value
BEGIN TRANSACTION
SELECT 病人基本信息
APPEND BLANK
INSERT into 病人基本信息 values(t1,t2,c11,t4,o1,t6,t7,c14,c1,c7,c8,c9,t10,t11)
SELECT 家长情况
APPEND BLANK
INSERT into 家长情况 values(t1,t12,t13,t14,c12,c13,t16,t17,t18,t19,t21,t22)
SELECT 既往史
APPEND BLANK
INSERT into 既往史 values(t1,T23,t24,c10)
SELECT 个人史
APPEND BLANK
INSERT into 个人史 values(t1,t26,c3,c4,c2,t27,t28,t29,t30)
SELECT 喂养史
APPEND BLANK
INSERT into 喂养史 values(t1,c5,t31,t32,c6)
SELECT 生长发育史
APPEND BLANK
INSERT into 生长发育史 values(t1,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44)
SELECT 家族史
APPEND BLANK
INSERT into 家族史 values(t1,t45,t46,t47,t48)
END TRANSACTION
MESSAGEBOX("保存成功",64,"健康档案")
thisform.Init
thisform.Refresh
