麻烦帮我看下这个函数那里有问题,软件提示array boundary exceeded at line 16 in open event of object w
String ls_tempLong 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