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
相关问答：
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
用什么？
VB自己好像有画图函数吧,另外VB也是可以用API的,而且很方便
引用
VB自己好像有画图函数吧,另外VB也是可以用API的,而且很方便
为什么vc没有自己的画图函数？
引用
引用 1 楼 wltg2001 � ......
从网页通过inet控件的Inet1.GetChunk读取其代码，然后想转换为汉字，转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strRecText As String
Dim st ......
VB如何判断一个控件是否文本框，是否是组合框？
找到答案，结贴
TypeOf
接分.
VB code:
dim o
for each o in controls
debug.print typename(o)
next
典型的倒分贴！
5楼正解！
If ......
vb中怎样实现像vb.net异常处理(try....Catch ex As Exception...end try)功能？
友情帮顶
无非是On error Goto 和Err.Number判断吧?
想用vb6.0实现以下vb.net的功能：
dim str as string '这个一个应� ......
