xuehao=allt(thisform.text1.value)
banji=allt(thisform.combo3.value)
kecheng=allt(thisform.combo4.value)
xueqi=allt(thisform.combo5.value)
chengji=allt(thisform.text2.value)
sele grade
if chengji==""
tt=messagebox("想输入单科成绩吗？",4+32,"提示")
if tt==6
thisform.text2.setfocus
else
endif
else
locate for allt(学号)=xuehao
if eof()
locate for allt(课程)=kecheng
if allt(学号)=="".and.allt(班级)==banji
repl 学号 with xuehao
repl 成绩 with val(chengji)
repl 学期 with xueqi
else
append blank
repl 班级 with banji
repl 学号 with xuehao
repl 成绩 with val(chengji)
repl 学期 with xueqi
endif
else
locate for allt(学号)=xuehao
do while found()
if allt(课程)==kecheng .and. allt(学期)==xueqi
tt=messagebox("该科的成绩已存在，是否覆盖？",4+32+256,"提示")
if tt==6
repl 成绩 with val(chengji)
endif
else
continue
endif
enddo
append blank
repl 班级 with banji
repl 学号 with xuehao
repl 成绩 with chengji
repl 学期 with xueqi
endif
endif
以上是一个修改成绩单击代码.单击时老提示数据类型不匹配,一直调试不出来.望高手指点下

字段名 类型 宽度
学号 字符型 10
班级 字符型 20
课程 字符型 18
成绩 数值型 3
学期 字符型 2