flexgrid表格显示如何会有点乱

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 │单元内容一般对齐方式。对字符串中 │
│ │ │间左对齐而对数值中间右对齐。 │
└─────────────┴─┴─────────────────┘

查看更多 下一篇