有没有办法将一个MSFLexGrid控件里的某条记录或全部记录删除啊？

[chsal]

如题

[andyfr1210]

delete from 表 '删除全部记录
delete from 表 where 条件 '删除对应记录.

[IE14571]

控件好像有一個叫做allowdelete的屬性,如果你設定為true,那直接按delete應該就可以了.

[cosio]

真有楼上所说的？那不是在太好用了！

[leolan]

Private Sub Form_Click ()
Dim Entry, i, Msg '宣告變數。
Msg = _
"Choose OK to add 100 items to your MSHFlexGrid."
MsgBox Msg '顯示訊息。
MSHFlexGrid1.Cols =2 '每個資料列有兩個字串。
For i =1 To 100 '從 1 計數到 100。
Entry ="Entry " & Chr(9) & I '建立輸入項。
MSHFlexGrid1.AddItem Entry '新增輸入項。
Next i
Msg ="Choose OK to remove every other entry."
MsgBox Msg '顯示訊息。
For i =1 To 50 '決定怎樣移除
MSHFlexGrid1.RemoveItem i '其它每一項目。
Next I
Msg ="Choose OK to clear all items."
MsgBox Msg '顯示訊息。
MSHFlexGrid1.Clear '清除清單方塊。
End Sub

[RUKYO]

'窗体上的MSFlexGrid1控件已经绑定Data1控件

Private Sub Command1_Click()
Data1.RecordSource = "Select * From tblTemp"
Data1.Refresh
End Sub

Private Sub Command2_Click()
Data1.Database.Execute ("Delete From tblTemp Where 名称 = '" & "abc'") '删除某条记录
Data1.Refresh
End Sub

Private Sub Command3_Click()
Data1.Database.Execute ("Delete From tblTemp1 Where True") '删除全部记录
Data1.Refresh
End Sub

Private Sub Form_Load()
Data1.Visible = False
Data1.Connect = "Access 2000;"
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.DefaultCursorType = 0
Data1.DefaultType = 2
End Sub