删除选中一行 Private Sub Command1_Click() Dim i As Integer, j As Integer On Error Resume Next If MSHFlexGrid1.Row = MSHFlexGrid1.RowSel Then i = MSHFlexGrid1.Row For j = 0 To 9 S = S & MSHFlexGrid1.TextMatrix(i, j) & " " Next Text1.Text = S MSHFlexGrid1.RemoveItem i Exit Sub End If 'If MSHFlexGrid1.Row <> MSHFlexGrid1.RowSel And MSHFlexGrid1.Col <> MSHFlexGrid1.ColSel ThenEnd SubPrivate Sub Form_Load() MSHFlexGrid1.Cols = 10 MSHFlexGrid1.Rows = 10 Dim i As Integer, j As Integer For i = 0 To 9 For j = 0 To 9 MSHFlexGrid1.TextMatrix(i, j) = i + j Next Next End Sub
1、能够对MSHFLEXGRID里显示的数据进行删除,无论是任选其一还是选择多个来进行删除;
2、当双击表里的数据时,表里相应的字段值会出现在左边窗口的各个TEXTBOX里显示。这样说比较清楚了,请高手帮帮忙,工作阻力,希望多多相助!
Private Sub Command1_Click()
Dim i As Integer, j As Integer
On Error Resume Next
If MSHFlexGrid1.Row = MSHFlexGrid1.RowSel Then
i = MSHFlexGrid1.Row
For j = 0 To 9
S = S & MSHFlexGrid1.TextMatrix(i, j) & " "
Next
Text1.Text = S
MSHFlexGrid1.RemoveItem i
Exit Sub
End If
'If MSHFlexGrid1.Row <> MSHFlexGrid1.RowSel And MSHFlexGrid1.Col <> MSHFlexGrid1.ColSel ThenEnd SubPrivate Sub Form_Load()
MSHFlexGrid1.Cols = 10
MSHFlexGrid1.Rows = 10
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
MSHFlexGrid1.TextMatrix(i, j) = i + j
Next
Next
End Sub