1. 程式人生 > >PB資料視窗中欄位下拉視窗的setfile

PB資料視窗中欄位下拉視窗的setfile

DatawindowChild idwc_child

dw_1.GetChild("欄位名",idwc_child)

idwc_child.SetTransObject(sqlca)
idwc_child.Retrieve()
//messagebox("(dept = '"+ycr_user.user_dept+"' AND usr_right = '3'",ycr_user.user_dept)
//if(ycr_user.user_zt ='02' or ycr_user.user_zt  = '04') then
if (ycr_user.user_dept = '21' or ycr_user.user_dept = '22') then
idwc_child.setfilter("dept = '"+ycr_user.user_dept+"' AND usr_right = '3'")
else
idwc_child.setfilter('(dept = "'+ycr_user.user_dept+'" AND usr_id <> "'+ycr_user.zh_czry+'") OR usr_right = "4"')
end if
idwc_child.filter( )