msflexgrid中某一个单元格内的文字如何竖着排???

[champion8310]

msflexgrid中某一个格子中的的文字如何竖着排???
一般文字都是横着排的,我想在要竖着排,怎么实现??
还有怎么再MSFLEXGRID中合并单元格
如:
原来单元格里是
价格
现在想要的这个样子
价
格

必须是在一个单元格内!!!!

[cindytsai]

合并单元格：
http://search.csdn.net/Expert/topic/1770/1770263.xml?temp=.7703363

[cpio]

价后面加个回车就可以了

"价" & vbcrlf & "格"

高度不够可能看不到格字

[champion8310]

但是我是数据库里面调出来的字段啊,总不能在数据库里面也加回车吧

[cpio]

合并单元格：


MSHFlexGrid1.MergeCells = flexMergeFree
循环各行
MSHFlexGrid1.MergeRow(i) = True
循环各列
MSHFlexGrid1.MergeCol(i) = True

[cpio]

怎么不可以呢

假如s1="价格"是从数据库里面读出来的

for i=1 to len(s1)
s2=mid(s1,i,1) & vbcrlf
next

再把最后一个vbcrlf去掉

s2=left(s2,len(s2)-1)

[champion8310]

已经解决了
Public Function upright(key As String)
Dim str As String
Dim i, j As Integer
If key = "" Then Exit Function
For i = 1 To Len(key)
str = str & vbCrLf & Mid(key, i, 1)

Next i
upright = LTrim(str)
End Function

[champion8310]

结束