2020-05-19 07:01
2020-05-19 07:02
2020-05-19 17:46
2020-05-20 16:20
程序代码：
Private Sub Image4_Click()
Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2
If RS.EOF = adStateOpen Then
Image8.Visible = True
Image8.Picture = Form2.Image62.Picture
Else
Image8.Picture = Form2.Image63.Picture
' 释放相应的资源
RS.Close
conn.Close
Set RS = Nothing
Set conn = Nothing
Exit Sub
End If
End Sub
2020-05-20 17:37
2020-05-21 07:18
程序代码：Private Sub Image4_Click()
Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2
If RS.State <> adStateClosed Then
Image8.Visible = True
Image8.Picture = Form2.Image62.Picture
Else
Image8.Picture = Form2.Image63.Picture
' 释放相应的资源
RS.Close
conn.Close
Set RS = Nothing
Set conn = Nothing
Exit Sub
End If
End Sub
2020-05-21 07:19
2020-05-21 17:37
2020-05-23 13:30
2020-06-19 18:08
