能否让MSHFlexGrid1的5列都能点击后弹出下拉列表框供选择,再合并一下前面1-10列再上下2行合并?

yiyaozjk 2011-12-15 05:29:56

1 能否让MSHFlexGrid1中指定的5列都能点击后弹出下拉列表框供选择
2 能否让MSHFlexGrid1再合并一下前面1-10列再上下2行合并?(现已经做到了能合并第一行的10至17列)

我的代码如下:

Public Sub 显示MSF1标题()

    If Combo1.Text <> "" Then

    '思信厂PMC生产排期计划表

      Label4.Caption = "思信厂生产排期" & Combo1.Text & "计划表"

    End If

  MSF1.Clear

  Dim i As Integer

        With MSF1

                .Cols = 29

                .Rows = 3

                .FixedCols = 0

                .FixedRows = 2

                .MergeCells = flexMergeRestrictAll

                .TextMatrix(0, 0) = ""

                .TextMatrix(0, 1) = "接单日期 "

                .TextMatrix(0, 2) = "工令单号 "

                .TextMatrix(0, 3) = "OC号"

                .TextMatrix(0, 4) = "PO号"

                .TextMatrix(0, 5) = "ITEM号"

                .TextMatrix(0, 6) = "客户名称"

                .TextMatrix(0, 7) = "产品名称"

                .TextMatrix(0, 8) = "数量"

                .TextMatrix(0, 9) = "交货日期"

                 For i = 10 To 17

                  .TextMatrix(0, i) = "喷油部"

                 Next

                .TextMatrix(1, 1) = ""

                .TextMatrix(1, 2) = ""

                .TextMatrix(0, 18) = "总工价"

                .TextMatrix(0, 19) = "总工时"

                .TextMatrix(0, 20) = "工人数量"

                .TextMatrix(0, 21) = "所需天数"

                .TextMatrix(0, 22) = "预计开始期"

                .TextMatrix(0, 23) = "预计完成期"

                .TextMatrix(0, 24) = "实际开始日期"

                .TextMatrix(0, 25) = "实际完成日期"

                .TextMatrix(0, 26) = "已完成数"

                .TextMatrix(0, 27) = "结余数量"

                .TextMatrix(0, 28) = "备注"

               

    

    .TextMatrix(1, 10) = "大枪工价"

    .TextMatrix(1, 11) = "小枪胭脂"

    .TextMatrix(1, 12) = "手绘工价"

    .TextMatrix(1, 13) = "抹油工价"

    .TextMatrix(1, 14) = "其它部门1"

    .TextMatrix(1, 15) = "其它部门2"

    .TextMatrix(1, 16) = "其它部门3"

    .TextMatrix(1, 17) = "其它部门4"

                



                .MergeCol(0) = True

                .MergeRow(0) = True

                .MergeCol(1) = True

                .MergeRow(1) = True

    .ColWidth(0) = 50

    .ColWidth(1) = 1100

    .ColWidth(2) = 1300

    .ColWidth(3) = 1500

    .ColWidth(4) = 1100

    .ColWidth(5) = 1600

    .ColWidth(6) = 1600

    .ColWidth(7) = 1600

    .ColWidth(8) = 700

    .ColWidth(9) = 1200

    .ColWidth(10) = 1000

    .ColWidth(11) = 1000

    .ColWidth(12) = 1000

    .ColWidth(13) = 1000

    .ColWidth(14) = 1000

    .ColWidth(15) = 1000

    .ColWidth(16) = 1000

    .ColWidth(17) = 1000

    '.ColWidth(16) = 1500

    

    For i = 1 To 15

      .ColAlignment(i) = 4

    Next i

  

    .FillStyle = flexFillSingle

    .Col = 0

    .Row = 0

    .RowSel = 1

    .ColSel = .Cols - 1

    .CellAlignment = 4

    End With

End Sub