上面程序的有关问题是什么

下面程序的问题是什么
Long ll_Row,ll_RCnt,ll_Exist

String ls_spcode,ls_spname,ls_xhbz,ls_hjzt,ls_hjstatus,ls_err,ls_sptel
dec{2} ld_yje,ld_zgyje,ld_qjcnt
mle_err.Text=''


ll_RCnt = dw_edit.RowCount()
For ll_Row = 1 To ll_RCnt
ls_spcode=dw_edit.GetItemString(ll_Row,'spcode')
ls_spname=dw_edit.GetItemString(ll_Row,'spname')
ls_sptel=dw_edit.GetItemString(ll_Row,'sptel')

这段程序报错，错误是syntax error

当将For ll_Row = 1 To ll_RCnt屏蔽
错误小时，但是这句话错在哪里呢
------解决方案--------------------

引用:

....
Long ll_Row,ll_RCnt,ll_Exist

String ls_spcode,ls_spname,ls_xhbz,ls_hjzt,ls_hjstatus,ls_err,ls_sptel
dec{2} ld_yje,ld_zgyje,ld_qjcnt
mle_err.Text=''


ll_RCnt = dw_edit.RowCount()
For ll……

FOR...NEXT FOR 循环要有next结尾。