PB中内嵌SQL语句出现的异常

PB中内嵌SQL语句出现的错误

//获取应用程序所在的路径
ls_Directory = GetCurrentDirectory()
//在章节列表菜单下新增二级菜单
integer li_itemcount,cid
string name
DECLARE cur_chapter Cursor For 
select "chapter"."cid" ,"chapter"."name" 
From "chapter" 
Order By "chapter"."cid" ASC;
open cur_chapter;
fetch cur_chapter into :cid,:name;
do while sqlca.sqlcode = 0
li_count++
  im_new[li_count] = create m_new
  li_itemcount = upperbound(m_main.item[1].item[])
  m_main.item[1].item[li_itemcount + 1] = im_new[li_count].item[1]
  m_main.item[1].item[li_itemcount + 1].text = name
  m_main.item[1].item[li_itemcount + 1].tag = string(cid)
  fetch cur_chapter into :cid, :name;
loop
close cur_chapter;
//此处将新生成的菜单对象显示出来
m_main.item[1].hide()
m_main.item[1].show()
//显示w_logo窗口
if isvalid(mdilogo) = false then
opensheet(mdilogo,this)
//备注：此处的数字1000可以根据实际窗口垂直布局情况进行调整
mdilogo.x = this.workspacex() + 100
//备注：此处的数字1000可以根据实际窗口水平布局情况进行调整
mdilogo.y = this.workspacey() +50
end if

随后就会出现 第一行 “。”附近有语法错误。就是Order By "chapter"."cid" ASC;这一行。
我是才学习PB的，因为公司需要。这个问题我弄一下午也没弄好。希望前辈给整治一下。谢谢啦。


------解决方案--------------------
双引号 都去掉
------解决方案--------------------
没有为什么，语法错误