PB动态游标代码段
摘要:
sql = "select p_partno from p_partno_rm group by p_partno order by p_partno"declare my3 dynamic cursor for sqlsa;prepare sqlsa from :sql;open dynamic my3;fetch my3 into:partno;do while sqlca.sqlcode = 0 partno = trim(partno) if partno <> "" and not isnull(partno) then ddlb_ 阅读全文
posted @ 2011-11-28 19:40 遗忘海岸 阅读(1491) 评论(0) 推荐(0) 编辑