yuxitian 发表于 2010-9-24 09:02:44

语法错误,下面这段代码有问题,请高手指点

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
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

tianshilong 发表于 2023-2-23 09:51:03

return 语句后边加一行 end if
页: [1]
查看完整版本: 语法错误,下面这段代码有问题,请高手指点

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com