long ll_rows_student
long 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[ll_rows_student]
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

啥子语法错误啊！检查哈你的提示语句有没有问题！

貌似该双引号

如果这段代码是拷贝过来的话，简单的看，就是语法问题。
即，在Datastore的retrieve后做判断的那个IF语句，没有end if。
其他的问题在这里看不出来，需要把你的错误提示贴出来！