对数据窗指定行、列字段加保护,并加以着色

对数据窗指定行、列字段加保护,并加以着色

//***********************************************************************
//名    称:gf_set_protect(datawindow dw_setprotect,integer row,integer col)
//功    能:对数据窗指定行、列字段加保护,并加以着色
//参    数:
//              datawindow dw_setprotect:数据窗
//              integer    row          :行 
//              integer    col            :列
//返 回 值:无
//书 写 人:ljh  
//修改时间:2011-04-19
//***********************************************************************

INTEGER li_i
STRING ls_str

dw_setprotect.setredraw(FALSE) 
//重设背景
dw_setprotect.modify("#" + STRING(col)+".background.mode=2")
dw_setprotect.modify("#" + STRING(col)+".background.color=16777215")


IF row = 0 THEN
 //改变某列颜色
 ls_str = "#" + STRING(col)+".background.color = '536870912~trgb(230,230,230)' )"
 dw_setprotect.modify(ls_str)
 ls_str = "#" + STRING(col)+".protect = '1'"
 dw_setprotect.modify(ls_str)
ELSEIF col = 0 THEN
 // 改变某行颜色
 dw_setprotect.Modify("DataWindow.Detail.Color= '1000~tif( getrow() = " +STRING(row)+ ",rgb(230,230,230),536870912) '")
 FOR li_i = 1 TO INTEGER(dw_setprotect.Object.DataWindow.Column.Count)
  dw_setprotect.modify(ls_str)
  dw_setprotect.modify("#" + STRING(li_i)+ ".protect = '0~tif( getrow() = " +STRING(row)+ " ,1,0)'")
 NEXT
ELSE 
 //改变cell颜色
 ls_str = "#" + STRING(col)+".background.color = '1000~tif( getrow() = " +STRING(row)+ ",rgb(230,230,230),536870912) '" 
 dw_setprotect.modify(ls_str)
 dw_setprotect.modify("#" + STRING(col)+ ".protect = '0~tif( getrow() = " +STRING(row)+ " ,1,0)'")

END IF

dw_setprotect.setredraw(TRUE)

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值