VB-數據刪除處理
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 3 ’刪除
Dim YesNo As String
If Command1(Index).Caption = "刪除(&D)" Then
YesNo = MsgBox("您要刪除" + CStr(Mb.Text) + "的組裝排配記錄嗎?", vbYesNo + vbCritical, "警告")
If YesNo = vbNo Then Exit Sub
cnn.Execute ("DELETE from DGMOCPPT WHERE convert(char(10),PS002,121)='" & Trim(Format(Mb.Text, "yyyy-mm-dd")) & "' ")
RsVWPZ.Requery
ElseIf Command1(Index).Caption = "放棄(&Q)" Then
If RsVWPZ.RecordCount = 0 Then ClearRs 1 '當沒有記錄存在的情況下清空顯示
EditCmd 2
相关问答：
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
大家看看
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
蛋定
http://t ......
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
&n ......
