不会很难吧!!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
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