高分请教：如何用MSHFlexGrid来成批删除记录？

Question

我现在只能实现一条一条的删除，但这样很麻烦，怎么才能大量删除记录呢？

Answer 1

把想要删除的数据主键记录到数组
然后组成字符串
strWhere = ID=1 OR ID=5 OR ID=...
最后一次执行删除任务
"DELETE FROM TABLE1 WHERE " + strWhere

Answer 2

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim M_DownRow, i As IntegerM_DownRow = MSFlexGrid1.MouseRow
MSFlexGrid1.TextMatrix(M_DownRow, 0) = "*"
For i = 0 To MSFlexGrid1.Rows
   If MSFlexGrid1.TextMatrix(i, 0) = "*" Then
      MSFlexGrid1.RemoveItem.i
   Next顺便问一下删除语句你用的哪一句?

Answer 3

首先选择要删除的行并且使用语句 MSFlexGrid1.TextMatrix(M_DownRow, 0) = "*"
  标出 然后
    一起删除
    For i = 0 To MSFlexGrid1.Rows
   If MSFlexGrid1.TextMatrix(i, 0) = "*" Then
      MSFlexGrid1.RemoveItem (i)
      else 
     MSFlexGrid1.TextMatrix(i, 0)=MSFlexGrid1.TextMatrix(i, 0)
   End If
  Next