| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 588 人关注过本帖
标题:求助过程声名与同名事件或过程描述不匹配
只看楼主 加入收藏
sandyfly
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-5-26
收藏
 问题点数:0 回复次数:0 
求助过程声名与同名事件或过程描述不匹配
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
编译出现的错误是:过程声名与同名事件或过程描述不匹配
搜索更多相关主题的帖子: 声名 描述 
2006-05-26 15:36
快速回复:求助过程声名与同名事件或过程描述不匹配
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036310 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved