vb6.0中DataGrid刪除當(dāng)前選定行數(shù)據(jù)？Private Sub MSHFGriduuuClick（）MSHFGrid.行= MSHFGrid.RowSel文件End Sub如果msgbox（

vb6.0中DataGrid刪除當(dāng)前選定行數(shù)據(jù)？

Private Sub MSHFGriduuuClick（）MSHFGrid.行= MSHFGrid.RowSel文件

End Sub

如果msgbox（“您確定要?jiǎng)h除編號(hào)：”&；NoMSHFGrid.Text文件&Amp “]？“，vbquestion，vbyesno，”delete“=vbyes then

設(shè)置resdel=New”ADODB.記錄集

重新刪除打開“從UserInfo中刪除，其中UserId=”“&MSHFGrid.Text文件&Amp “”，Conn，1,2

msgbox “刪除成功！“，vbinformation，”success“

如果重新刪除狀態(tài)&然后lt> 0重新刪除。關(guān)閉

重新刪除打開“select*from viewUserInfo”，Conn，1，1

集合MSHFGrid.DataSource文件=ResDel

如果重新刪除狀態(tài)&然后lt> 0重新刪除。關(guān)閉

Set resdel=nothing

如果結(jié)束

如果您有什么不知道的，請(qǐng)?jiān)賳栁乙淮?/p>