高分求助:怎样删除msflexgrid中选中的记录?在线等,急!!

我用data控件绑定msflexgrid显示access数据库的内容,在flexgrid中选中某行或某列后,怎样将选中的行或列删除,要求删除数据库中的内容,哪位给段代码,多谢了!

解决方案 »

  1.   

    Dim intIndex As Integer
        '选中的行
        intIndex = MSFlexGrid1.RowSel
        '记录游标移到头
        Data1.Recordset.MoveFirst
        For i = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1
            '关键字所在列比较
            If MSFlexGrid1.TextMatrix(i, 1) = MSFlexGrid1.TextMatrix(intIndex, 1) Then
                '删除
                Data1.Recordset.Delete
                '更新
                Data1.Refresh
                '退出循环
                Exit For
            End If
            '记录下移一条
            Data1.Recordset.MoveNext
        Next i