flexgrid表格显示怎么会有点乱
flexgrid每个单元格可以多行显示,但是显示时有点乱,因为有些只有一行字,有些两行。。。
所以有些字垂直居中,有些顶端显示,一句话,上上下下显示的都有,显示很乱。代码如下:
- SQL code
Flag=This.CaptionSelect tab_itemSelect 编码,项目名称,项目内涵,除外内容,计价单位,价格,备注说明 From tab_item Into Cursor Temp_Drugthisform.flexgrid1.backcolor=rgb(254,247,239)thisform.flexgrid1.forecolor=rgb(14,125,239)thisform.flexgrid1.wordwrap=.T.thisform.flexgrid1.FontSize=10thisform.flexgrid1.fontbold=.T.thisform.flexgrid1.fontname="宋体"select Temp_Druggo top &&将记录指针移动到第一条记录thisform.flexgrid1.clear &&清空FlexGrid1thisform.FlexGrid1.cols=fcount()+1 &&设置FlexGrid1的列数thisform.flexgrid1.rows=reccount()+1 &&设置FlexGrid1的行数Thisform.FlexGrid1.RowHeight(0)=300thisform.flexgrid1.refresh*设置第一列的宽度thisform.flexgrid1.ColWidth(0)=0*设置表头标题for h=1 to fcount() thisform.flexgrid1.TextMatrix(0, h) = field(h) thisform.flexgrid1.ColWidth(1)=900 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(2)=820 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(3)=2500 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(4)=2020 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(5)=820 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(6)=800 &&设置单元格的宽度 thisform.flexgrid1.ColWidth(7)=3000 &&设置单元格的宽度endfor*将记录添加到FlexGrid1中For m = 1 To reccount() goto m Thisform.FlexGrid1.RowHeight(m)=1500 For n = 1 To fcount() fname=field(n) thisform.flexgrid1.TextMatrix(m,n)=Temp_Drug.&fname. endforendfor
怎么让它顶端对齐或垂直居中?谢谢!!
[解决办法]
设置MSF1exGrid控件的Ce1lAlignment属性就可以了!
参考值:
┌─────────────┬─┬─────────────────┐
│常数 │值│描述 │
│F1exAlignLeftTop │0 │单元内容顶部左对齐。 │
│FlexAlignLeftCenter │1 │单元内容中I'7左对齐。对字符串的缺│
│ │ │省设置值。. │
│F1exAlignLeftBottom │2 │单元内容底部左对齐。 │
│F1exAlignCenterTop │3 │单元内容顶部居中。 │
│FlexAlignCenterCenter │4 │单元内容中间居中。 │
│FlexAlignCenterBottoml│5 │单元内容底部居中。 │
│F1exAlignRightTop │6 │单元内容顶部右对齐。 │
│FlexAlignRightCenter │7 │单元内容中间右对齐。对数字的缺省 │
│ │ │设置值。 │
│F1exAlignRightBottom │8 │单元内容底一部右对齐。 │
│F1exAlignGeneeal │9 │单元内容一般对齐方式。对字符串中 │
│ │ │间左对齐而对数值中间右对齐。 │
└─────────────┴─┴─────────────────┘