【PB】如何给datawindow某一列动态设置成dddw或者ddlb,并且赋值

(1)切换成DDDW:  
  dw_1.Modify("#1.dddw.Name='dddw_jg'")  
  dw_1.Modify("#1.dddw.DisplayColumn='name_jg'")  
  dw_1.Modify("#1.dddw.DataColumn='id_jg'")  
  (2)切换成DDLB:  
  dw_1.Modify("#1.ddlb.case='any'")    
  dw_1.Object.#1.Values   ="red~t1/white~t2"  
  (3)切换成EDIT:  
  dw_1.Modify("#1.edit.case='any'")  
  dw_1.Modify("#1.edit.AutoSelect='Yes'")  
  (4)获取当前风格:  
  dw_1.Describe("#1.Edit.Style")  
  (5)如果还不行,可能得要如下操作:  
  dw_1.Modify("#1.dddw.Name=''")一下;

-----------------------------------------------------------------------------------------------

方法:动态建立变换dddw和edit风格

//d_province为下拉数据窗囗对象
If is_flag = 'A ' Then //变为dddw
dw_1.Modify( "province.dddw.Name = 'd_province ' ")
dw_1.Modify( "province.dddw.DataColumn = 'id ' ")
dw_1.Modify( "province.dddw.DisplayColumn = 'province ' ")
dw_1.Modify( "province.dddw.AllowEdit = 'True ' ")
dw_1.Modify( "province.dddw.AutoRetrieve = 'True ' ")
is_flag = 'B '
Else //变回edit
dw_1.Modify( "province.dddw.Name = ' ' ")
dw_1.Modify( "province.dddw.DataColumn = ' ' ")
dw_1.Modify( "province.dddw.DisplayColumn = ' ' ")
dw_1.Modify( "province.dddw.AllowEdit = ' ' ")
dw_1.Modify( "province.dddw.AutoRetrieve = ' ' ")
is_flag = 'A '
End If



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值