说明: VB代码,一起共享 Private Sub tv_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete And Shift = 1 And (Not tv.SelectedItem Is Nothing) Then If MsgBox("要强制释放床位吗?", vbExclamation Or vbOKCancel, "SETNULL") = vbOK Then myConn.Execute "Update
<u010410247> 上传 | 大小:473kb