Private Sub cmdDelete_click()
Dim txtsql As String
Dim intCount As Integer
Dim mrc As ADODB.Recordset
Dim msgtext As String
If msgList.Rows > 1 Then
If MsgBox("真的要删除编号为" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "的订单记录吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
intCount = msgList.Row
txtGFDM = Trim(msgList.TextMatrix(intCount, 5))
txtWZDM = Trim(msgList.TextMatrix(intCount, 6))
txtQIHAO = Trim(msgList.TextMatrix(intCount, 7))
txtSL = Trim(msgList.TextMatrix(intCount, 8))
txtZKE = Trim(msgList.TextMatrix(intCount, 11))
txtsql = "delete from dh where dh_no='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
Set mrc = executesql(txtsql, msgtext)
txtsql = "select updata_date,sl,total_je from kuncun where ckdm ='" & txtCKDM & "'"
txtsql = txtsql & "and wzdm='" & txtWZDM & "'"
txtsql = txtsql & "and qihao='" & txtQIHAO & "'"
Set mrc = executesql(txtsql, msgtext)
If Not mrc.EOF Then
mrc.Fields(0) = Format(Now, "yyyy-mm-dd")
mrc.Fields(1) = mrc.Fields(1) - txtSL
mrc.Fields(2) = mrc.Fields(2) - txtZKE
mrc.Update
End If
mrc.Close
Unload frmDH
frmDH.txtsql = "select dh_no,in_date,ywman,gfdm,wzdm,qihao,sl,in_danj,in_danj,i_zk,i_zke,bz,from inh"
frmDH.Show
End If
End If
End Sub
编译出现的错误是：过程声名与同名事件或过程描述不匹配