for i = 1 to upperbound(im_main.item)
for j = 1 to upperbound(im_main.item[i].item)
if im_main.item[i].item[j].visible = true then
ls_menuitem = im_main.item[i].item[j].text
我用pb9.0的時候編輯腳本函式的時候，在這出錯了，麻煩大俠們給解決一下
uj5u.com熱心網友回復：
是什么錯啊uj5u.com熱心網友回復：
for j = 1 to upperbound(im_main.item[i].item)這一行提示“下標運算式不是一個陣列”
uj5u.com熱心網友回復：
upperbound是獲得資料的上限。所以引數必須是陣列。下面的代碼是別人的，你看看別人的用法。
小弟 不會 希望大家幫忙 感激不盡
主視窗定義的函式
datastore lds_user //定義資料存盤
integer i,j
string ls_menuitem,ls_ss
im_main = menuid
lds_user = create datastore //建立資料存盤
lds_user.dataobject = "d_qx_yh"
lds_user.settransobject(sqlca)
lds_user.retrieve()
lds_user.setfilter("用戶編號= '" + gs_user + "'"
lds_user.filter() //過濾出as_user用戶的權限
for i = 1 to upperbound(im_main.item)
for j = 1 to upperbound(im_main.item.item)
if im_main.item.item[j].visible = true then
ls_menuitem = im_main.item.item[j].text
if lds_user.find("權限名稱= '" + ls_menuitem + "'",1,lds_user.rowcount()) > 0 then
//如果用戶有該權限，則選單可用
im_main.item.item[j].enabled = true
else
//如果用戶沒有該權限，則選單可用
im_main.item.item[j].enabled = false
end if
end if
next
next
destroy lds_user //破壞資料存盤
return 1
uj5u.com熱心網友回復：
im_main.item.item[j] 用法不對，item[i]呢？轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/97918.html
標籤：控件與界面
上一篇：pb中的popmenu的問題