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
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
这段程序中
Begin VB.Forms_frmmain BorderStyle = 1 'fixed single
Caption = "速算24"
clientHeight = 6375
clientLeft = 154 ......
VB如何判断一个控件是否文本框，是否是组合框？
找到答案，结贴
TypeOf
接分.
VB code:
dim o
for each o in controls
debug.print typename(o)
next
典型的倒分贴！
5楼正解！
If ......
大家看看
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 ......
请看看以下导出文本文件的模块函数，我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......
