pb中使用getfullstate及setfullstate

如果数据窗口已设置显示水平分隔条（即hsplitscroll=true），在调用数据窗口setfullstate后会出现双滚动条，界面出现一定的零乱。为解决该问题，可以在调用setfullstate后重新设置一下hsplitscroll属性，双滚动条就会消失。

 

       如果数据窗口已设置显示水平分隔条（即hsplitscroll=true），在调用数据窗口setfullstate后会出现双滚动条，界面出现一定的零乱。为解决该问题，可以在调用setfullstate后重新设置一下hsplitscroll属性，双滚动条就会消失。

       以下是笔者自定义的of_setfullstate函数，建立在数据窗口祖先中，你可以使用of_setfullstate代替PB自带的setfullstate函数，你也可以以类似的代码重载setfullstate函数。

/*******************************************************************

函数名称：of_setfullstate()

*******************************************************************/

long ll_return

boolean lb_hsplitscroll

 

ll_return = this.setfullstate(ablb_fullstate)

//如果设置hsplitscroll=true,PB在调用setfullstate后会出现双滚动条,使用下面的代码可以消除双滚动条

lb_hsplitscroll = this.hsplitscroll

if lb_hsplitscroll then

       this.hsplitscroll = false

       this.hsplitscroll = true

end if

 

return ll_return

// Global variable:connection myconnect

// Instance variable: uo_employee iuo_employee

blob lblb_data

long ll_rv

myconnect.CreateInstance(iuo_employee)

iuo_employee.RetrieveData(lblb_data)

ll_rv = dw_empdata.SetFullState(lblb_data)

IF ll_rv = -1 THEN

        MessageBox("Error", "SetFullState failed!")

END IF