PB 数据窗口字段全部设置为不可编辑状态-增加可复制版本

ehxz

免费乐捐，感谢支持

1. //====================================================================
   
2. // 函数: w_outp_indection_desease_input::wf_init_taporder
   
3. //--------------------------------------------------------------------
   
4. // 描述: 将所有的列的taporder设置为0
   
5. //--------------------------------------------------------------------
   
6. // 参数:
   
7. //         无
   
8. //--------------------------------------------------------------------
   
9. // 返回值:  (none)
   
10. //--------------------------------------------------------------------
    
11. // 作者:        YJC      日期: 2016年09月25日
    
12. //--------------------------------------------------------------------
    
13. // 修改历史:  
    
14. // 如果使用dw.Object.DataWindow.ReadOnly=Yes ， 数据窗口的复选框仍然会被更改
    
15. //====================================================================
    
16. 
    
17. string ls_col
    
18. long ll_colcount
    
19. long ll_i
    
20. ll_colcount = long( dw_indection_desease.object.datawindow.Column.Count )
    
21. if isnull(ll_colcount) or ll_colcount <= 0 then return
    
22. for ll_i = 1 to ll_colcount
    
23.         ls_col = dw_indection_desease.describe("#"+string(ll_i)+".name")
    
24.         dw_indection_desease.SetTabOrder (ls_col,0)
    
25. next

复制代码

————————————————
版权声明：本文为CSDN博主「Y型树杈子」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/yangjinchao/article/details/89927357

ehxz

可复制内容版本：

1. //====================================================================
   
2. // 函数: w_outp_indection_desease_input::wf_init_taporder
   
3. //--------------------------------------------------------------------
   
4. // 描述: 将所有的列的taporder设置为0
   
5. //--------------------------------------------------------------------
   
6. // 参数:
   
7. //         无
   
8. //--------------------------------------------------------------------
   
9. // 返回值:  (none)
   
10. //--------------------------------------------------------------------
    
11. // 作者:        YJC      日期: 2016年09月25日
    
12. //--------------------------------------------------------------------
    
13. // 修改历史:  
    
14. // 如果使用dw.Object.DataWindow.ReadOnly=Yes ， 数据窗口的复选框仍然会被更改
    
15. //====================================================================
    
16. 
    
17. string ls_col
    
18. long ll_colcount
    
19. long ll_i
    
20. ll_colcount = long( dw_child.object.datawindow.Column.Count )
    
21. if isnull(ll_colcount) or ll_colcount <= 0 then return
    
22. for ll_i = 1 to ll_colcount
    
23.         dw_child.modify("#"+string(ll_i)+".edit.displayonly=Yes")
    
24. next
    

复制代码

swimchen

最无脑的方法：dw_Data.Modify("DataWindow.Print.Preview='Yes'")

最奇葩的办法：dw_Data的ItemChanged事件写RETURN 2

最简单的办法：
INTEGER li_Index //DataWindow最多1000个列，用int足够了
FOR li_Index=Integer(dw_Data.Object.DataWindow.Column.Count) TO 1 STEP -1
        dw_Data.SetTabOrder(li_Index,0)
NEXT

楼主的办法还是不够简洁啊，还得是我的才好