PB 数据窗口字段全部设置为不可编辑状态-增加可复制版本
//====================================================================// 函数: w_outp_indection_desease_input::wf_init_taporder
//--------------------------------------------------------------------
// 描述: 将所有的列的taporder设置为0
//--------------------------------------------------------------------
// 参数:
// 无
//--------------------------------------------------------------------
// 返回值:(none)
//--------------------------------------------------------------------
// 作者: YJC 日期: 2016年09月25日
//--------------------------------------------------------------------
// 修改历史:
// 如果使用dw.Object.DataWindow.ReadOnly=Yes ， 数据窗口的复选框仍然会被更改
//====================================================================
string ls_col
long ll_colcount
long ll_i
ll_colcount = long( dw_indection_desease.object.datawindow.Column.Count )
if isnull(ll_colcount) or ll_colcount <= 0 then return
for ll_i = 1 to ll_colcount
ls_col = dw_indection_desease.describe("#"+string(ll_i)+".name")
dw_indection_desease.SetTabOrder (ls_col,0)
next
————————————————
版权声明：本文为CSDN博主「Y型树杈子」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/yangjinchao/article/details/89927357
可复制内容版本：
//====================================================================
// 函数: w_outp_indection_desease_input::wf_init_taporder
//--------------------------------------------------------------------
// 描述: 将所有的列的taporder设置为0
//--------------------------------------------------------------------
// 参数:
// 无
//--------------------------------------------------------------------
// 返回值:(none)
//--------------------------------------------------------------------
// 作者: YJC 日期: 2016年09月25日
//--------------------------------------------------------------------
// 修改历史:
// 如果使用dw.Object.DataWindow.ReadOnly=Yes ， 数据窗口的复选框仍然会被更改
//====================================================================
string ls_col
long ll_colcount
long ll_i
ll_colcount = long( dw_child.object.datawindow.Column.Count )
if isnull(ll_colcount) or ll_colcount <= 0 then return
for ll_i = 1 to ll_colcount
dw_child.modify("#"+string(ll_i)+".edit.displayonly=Yes")
next
本帖最后由 swimchen 于 2023-12-4 04:00 编辑
最无脑的方法：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
楼主的办法还是不够简洁啊，还得是我的才好
页:
[1]