如何得到MSFlexGrid中所选中的多行的结果?

解决方案 »

  1.   

    不会很难吧!!Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To MSFlexGrid1.RowSel
    Text1.Text = Text1.Text + MSFlexGrid1.TextMatrix(i, 0)
    Next
    End SubPrivate Sub Form_Load()
            Dim i As Integer
            MSFlexGrid1.FixedCols = 0
            MSFlexGrid1.FixedRows = 1
            MSFlexGrid1.TextMatrix(0, 0) = "姓名"
            MSFlexGrid1.TextMatrix(0, 1) = "性别"
            MSFlexGrid1.TextMatrix(0, 2) = "职务"
            For i = 1 To 4
                MSFlexGrid1.TextMatrix(i, 0) = i
            Next
    End Sub
      

  2.   

    不会很难的,根据.Col   .Row   .ColSel     .RowSel几个属性就能搞定了