对于HFlexGrid，如何删除指定行？

Question

如题！

Answer 1

假设第一列字段名：ID
    MSHFlexGrid1.Col = 1
    Str = MSHFlexGrid1.Text
    sstr="delete from ms_zlgl_a where sid ='"& str &"'"
刷新一下就可以了

Answer 2

Private Sub Form_Click()
   Dim Entry, i, Msg               ' Declare variables.
   Msg = "Choose OK to add 100 items to your MSHFlexGrid."
   MsgBox Msg   ' Display message.
   MSHFlexGrid1.Cols = 2        ' Two strings per row.
   For i = 1 To 100  ' Count from 1 to 100.
      Entry = "Entry " & Chr(9) & i  ' Create entry.
      MSHFlexGrid1.AddItem Entry      ' Add entry.
   Next i
   Msg = "Choose OK to remove every other entry."
   MsgBox Msg                     ' Display message.
   For i = 1 To 50              ' Determine how to
      MSHFlexGrid1.RemoveItem i   ' remove every other
   Next i                        ' item.
   Msg = "Choose OK to clear all items."
   MsgBox Msg                     ' Display message.
   MSHFlexGrid1.Clear               ' Clear list box.
End Sub