VB出入院管理系统

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 CWXXB set ZYH=NULL where ZYH='" + tv.SelectedItem