hur.cn - 华软网

 热门搜索

crosstab中怎样定位

  作者:未知    来源:网络    更新时间:2019/4/16
例如。我有一个t_1作为一个crosstab报表的表名。想要一直显示在这个报表的中心位置
请问有什么措施能做到吗。??
------华软网友回答------
晕。。为什么都没人理我啊。。。
难道偶人品实在太差??
------华软网友回复------
我左等右等上等下等
------华软网友回复------
应该能够
参照:

Integer li_count,li_rc,li_title_rpt_Height = 230
String ls_colname,ls_bgsyntax,ls_modify,ls_linesyntax,ls_maxcolumn,ls_objects,ls_objectname
String ls_title,ls_font,ls_height,ls_tmp_x,ls_max_x,ls_header_height,ls_band
Integer  li_start,li_pos,li_y,li_y1,li_y2

ls_objects = dw_print.Describe('DataWindow.Objects')

li_start = 1
li_pos = Pos(ls_objects,'~t',li_start)
Do While li_pos > 0
ls_objectname = Trim(Mid(ls_objects,li_start,li_pos -li_start ))
li_start = li_pos +1
li_pos = Pos(ls_objects,'~t',li_start)
ls_band = dw_print.Describe(ls_objectname +".Band")
If Lower(ls_band) = 'header' Then
Choose Case Lower(dw_print.Describe(ls_objectname +".type"))
Case 'text','column','compute','datawindow','bitmap','button','groupbox','ellipse','rectangle','report','roundrectangle','tableblob'
li_y = Integer(dw_print.Describe(ls_objectname +".y"))
dw_print.Modify(ls_objectname +".y="+String(li_y + li_title_rpt_Height))
Case 'line'
li_y1 = Integer(dw_print.Describe(ls_objectname +".y1"))
li_y2 = Integer(dw_print.Describe(ls_objectname +".y2"))
dw_print.Modify(ls_objectname +".y1="+String(li_y1 + li_title_rpt_Height))
dw_print.Modify(ls_objectname +".y2="+String(li_y2 + li_title_rpt_Height))
End Choose
End If
Loop

//设置表头高度
ii_header_height = Integer(dw_print.Object.DataWindow.Header.Height) + li_title_rpt_Height
dw_print.Modify("DataWindow.Header.Height =" +String(li_title_rpt_Height ))
//设置表头信息
wf_setheaderheight(ls_maxcolumn)
////设置页脚信息
//wf_setfooter(ls_maxcolumn)


//dw_print.Modify("datawindow.color ='" +string(16777215) +"'")
//
//li_count =Integer(dw_print.Describe("datawindow.column.count"))
//For li_rc =1 to li_count
// ls_colname =dw_print.Describe("#" +String(li_rc) +".name")
// dw_print.Modify( ls_colname +"_t.border ='0'")
// dw_print.Modify( ls_colname +"_t.background.color='536870912'")
// dw_print.Modify( ls_colname +"_t.y ='" +String(ii_header_height -ii_text_height) +"'")
// ls_tmp_x =dw_print.Describe(ls_colname +".x")
// IF Integer(ls_max_x) <=0 Or Integer(ls_max_x) <Integer(ls_tmp_x) Then
// ls_max_x =ls_tmp_x
// ls_maxcolumn =ls_colname
// End IF
//Next
////设置表头信息
//wf_setheaderheight(ls_maxcolumn)
//////设置页脚信息
////wf_setfooter(ls_maxcolumn)
//String ls_objects,ls_objectname,ls_type,ls_header,ls_header_text
//Integer li_pos,li_start
//
//ls_objects =dw_print.Describe('DataWindow.Objects')
//
//li_start =1
//li_pos =pos(ls_objects,'~t',li_start)
//Do While li_pos >0
//
// ls_objectname =Mid(ls_objects,li_start,li_pos -li_start )
// li_start =li_pos +1
// li_pos =pos(ls_objects,'~t',li_start)
// ls_type =dw_print.Describe(ls_objectname +".type")
// Choose Case Lower(ls_type)
// Case 'text'
//
// Case 'compute'
// dw_print.Modify( ls_objectname +".border ='0'")
// dw_print.Modify( ls_objectname +".background.color='536870912'")
// End Choose
//Loop

------华软网友回复------
...
------华软网友回复------
相当麻烦~~所以基本上不用这类格式。
------华软网友回复------
先選中t_1本欄位,選擇position屬性,將layer里面的band(默認值)改為Forground即可移動該欄位,使其顯示在報表中央。
------华软网友回复------
晕。。。
那你也要知道。。。
中央在什么位置啊。。。      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。