我有一個函數,你拿去用.
名字:f_protect_all
參數1:adw_parm type:datawindow Pass By:reference
參數2:ab_protect type:boolean Pass By:value
返回值:public integer
函數體:
int li_count, i
string ls_val
//======== Determine value of protect attribute===========
if ab_protect then
ls_val = "1"
else
ls_val = "0"
end if
//============ Protect or unprotect columns================
li_count = Integer (adw_parm.Describe ("DataWindow.Column.Count"))
for i = 1 to li_count
adw_parm.Modify ("#" + String (i) + ".protect=" + ls_val)
next