| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 3114 人关注过本帖
标题:求解PB函数错误
只看楼主 收藏
xjkcyb
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-5-31
结帖率:100%
  问题点数:0  回复次数:1   
求解PB函数错误
String ls_temp
Long   ll_brid

gf_center_window(This)
dw_main.SetTransObject(sqlca)
ls_temp = lower(Message.StringParm)
If ls_temp = 'yf' or ls_temp = 'yj' or ls_temp = 'ys' or ls_temp = 'zs' Then
    cb_kh.Visible = False
    cb_jk.Visible = False
    cb_tk.Visible = False
    cb_qd.Y       = 80
    cb_qx.Y          = 240
    dw_main.InsertRow(0)
    sle_brkh.SetFocus()
ELSE
    ll_brid = gs_exchange.LongParm[1]
    IF ll_brid > 0 Then
        SELECT BRKH INTO :is_brkh FROM MS_BRZH WHERE BRID = :ll_brid;
        SELECT MZHM INTO :is_mzhm FROM MS_BRDA WHERE BRID = :ll_brid;
        SLE_brkh.text=is_brkh
        dw_main.retrieve(is_mzhm)
        sle_mm.setFocus()
    ELSE
        dw_main.InsertRow(0)
        sle_brkh.SetFocus()
    End If
End If

错误提示:array boundary exceeded at line 16 in open event of object w_brkh_input
2016-05-31 23:51
zouchen
Rank: 1
等 级:新手上路
帖 子:3
专家分:7
注 册:2016-6-20
  得分:0 
gs_exchange.LongParm[1],数组溢出了
2016-06-20 14:09







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.163971 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved