Range("B5:C11").Select
    Selection.Copy
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    Columns("K:K").ColumnWidth = 12.5

解决方案 »

  1.   

    楼上的兄弟,能不能大概解释一下,我用的是VB6+Sql Server 2000+水晶报表9。
      

  2.   

    crosstab是什么?在那里能找到?
      

  3.   

    用crosstab交叉表如何实现呢?“
    Range("B5:C11").Select
        Selection.Copy
        Range("E5").Select
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
        Columns("K:K").ColumnWidth = 12.5”
    这些语句又是什么?是不是水晶报表的内部语言?如果是,怎样才能实现记录的竖排呢?
      

  4.   

    先把列Field竖排成行
    右击Detail,选择Format Section…进入
    选中Common中的Fromat with Multiple Col复选框
    然后在Layout中设置 Detail Size 和 Gap Between Detail