语法错误,下面这段代码有问题,请高手指点
long ll_rows_studentlong ll_rows
string ls_student_id
ls_student_id = trim(sle_1.text)
DataStore lds_student
lds_student = CREATE DataStore
lds_student.DataObject = 'd_student'
lds_student.SetTransObject(SQLCA)
lds_student.SetFilter("student_id = '"+ ls_student_id + "'")
lds_student.filter()
ll_rows_student = lds_student.Retrieve()
if ll_rows_student > 0 then
sle_2.text = lds_student.Object.student_name
else
MessageBox('提示','没有该学号信息,请重新输入学号!')
sle_1.SetFocus()
return
dw_1.SetFilter("score_student_id = '"+ ls_student_id +"'")
dw_1.Filter()
ll_rows = dw_1.Retrieve()
if ll_rows = 0 then
MessageBox('提示','该学生还没有选课信息,请选课!')
cb_1.SetFocus()
end if return 语句后边加一行 end if
页:
[1]