关于DataGrid
请问用DataGrid做的表格点了允许删除后,在运行时,怎样操作才能删除记录呢?
这是发票程序中的一段代码,做个参考吧!
ph = DataGrid1.Columns(1).Text
myval = MsgBox("你确认删除" & ph & "号发票吗?", vbYesNo)
If myval = vbYes Then
rs1.Open "select * from sgfp where fphm=" & ph, cnn, adOpenKeyset, adLockOptimistic
rs1.Delete
rs1.Close
MsgBox (ph & "号发票已经删除!")
End If