7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
MSHFlexGrid2.RemoveItem MSHFlexGrid2.Row
End Sub
Private Sub Form_Load()
For i = 0 To 4
For j = 0 To 2
MSHFlexGrid1.TextMatrix(i, j) = i
Next
Next
End Sub
Private Sub MSHFlexGrid1_Click()
MSHFlexGrid2.Rows = MSHFlexGrid2.Rows + 1
MSHFlexGrid2.Row = MSHFlexGrid2.Rows - 1
For j = 0 To 2
MSHFlexGrid2.TextMatrix(MSHFlexGrid2.Row, j) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, j)
Next
End Sub