請參考4GL官網文件…
http://www.4js.com/online_documentation/fjs-fgl-manual-html/User/ResultSets.html#RS_FOREACH
foreach,只能用在在record或動態record、array
寫4GL不是難事,去4GL官網看文件就好了
還有疑問,PO CODE上來,我幫你看。
<pre class="c" name="code">
DEFINE g_cxh DYNAMIC ARRAY OF RECORD
cxh02 LIKE cxh_file.cxh02,
cxh03 LIKE cxh_file.cxh03,
cxh01 LIKE cxh_file.cxh01,
END RECORD
DEFINE l_sql STRING
DEFINE g_cnt LIKE type_file.num10
LET l_sql = "SELECT cxh02, cxh03, cxh01 FROM cxh_file"
PREPARE q001_pb FROM l_sql
DECLARE q001_bcs CURSOR FOR q001_pb
CALL g_cxh.clear()
LET g_cnt = 1
FOREACH q001_bcs INTO g_cxh[g_cnt].*
IF SQLCA.sqlcode THEN
CALL cl_err('Foreach:',SQLCA.sqlcode,1)
EXIT FOREACH
END IF
LET g_cnt = g_cnt + 1
END FOREACH
這應該是你要的答案了???
商業軟體涉及商業利益
有侵權問題
鼎新客製化好像沒開放給經銷商 ?
這麼猜測你所描述的狀況 ....
是否請你往幾個方向去檢查
希望以上對你有幫助 ..
birdy