数据窗口保存拖动位置后的列顺序

工伤处用惯了excel, 列的位置喜欢拖来拖去. 这个功能必须有.

其实为了以后增加字段方便, 这个功能也必须有, 省得重新画数据窗口了.

 

想法就是做个隐藏的数据窗口,专门存各个列的位置数据, 窗体初始化的时候按照数据库里的顺序重新排一下就行了.

 

首先做个数据窗口

 

然后在窗体上放上这个dw, 名字是dw_2, 属性隐藏.  主数据窗口是dw_1

 

窗体的open事件加上代码:

//*********** dw_1按dw_2数据重排各列 ******** //long l_cc //string l_wx //int i_i // //l_cc=long(dw_1.Object.DataWindow.Column.Count) ////messagebox("!","共有"+string(l_cc)+"个列") //for i_i=1 to l_cc // //dw_2.scrolltorow(i_i) // l_wx=dw_2.getitemstring(i_i,"width") // dw_1.modify("#"+string(i_i)+".width="+l_wx) // l_wx=dw_2.getitemstring(i_i,"x") // dw_1.modify("#"+string(i_i)+".x="+l_wx) // //next // ////dw_2.scrolltorow(l_cc+1) //l_wx=dw_2.getitemstring(l_cc+1,"x") //dw_1.Object.DataWindow.HorizontalScrollSplit = l_wx

 

窗体的close事件加上代码

//-----------------------dw2保存重排-------------------------- //l_cc=long(dw_1.Object.DataWindow.Column.Count) ////messagebox("!","共有"+string(l_cc)+"个列") //for i_i=1 to l_cc // //l_row2=dw_2.insertrow(0) // l_row2=i_i // //dw_2.scrolltorow(l_row2) // l_wx=dw_1.describe("#"+string(i_i)+".width") // dw_2.setitem(l_row2,"width",l_wx) // l_wx=dw_1.describe("#"+string(i_i)+".x") // dw_2.setitem(l_row2,"x",l_wx) // l_wx=dw_1.describe("#"+string(i_i)+".name") // dw_2.setitem(l_row2,"name",l_wx) // l_wx=dw_1.describe("#"+string(i_i)+".coltype") // dw_2.setitem(l_row2,"coltype",l_wx) // //dw_2.setitem(l_row2,"index",i_i) //next ////l_row2=dw_2.insertrow(0) ////dw_2.scrolltorow(l_cc+1) //l_wx=string(dw_1.Object.DataWindow.HorizontalScrollSplit) //dw_2.setitem(l_cc+1,"x",l_wx) ////dw_2.setitem(l_row2,"index",99) // //dw_2.update() //commit using sqlca; //----------------------------end-----------------------------

 

如此这般就可以了