很多不知道是哪个出错了。'保存字段数据 'On Error GoTo AdoErr: If AddFlag = "ADD" Then rdCon.AddNew rdCon.Fields("cConCode") = txtConCode End If rdCon.Fields("cConName") = txtConName Set rdFindCus = SysCon.Execute("select cCusCode from Cus where Rtrim(Ltrim(cCusName))='" & Trim(txtCus) & "'") rdCon.Fields("cCusCode") = rdFindCus.Fields(0) rdCon.Fields("dConDate") = dtpConDate rdCon.Fields("mConMoney") = txtConMoney rdCon.Fields("cMemo") = txtMemo If txtFileName <> "" Then If Dir(Trim(txtFileName)) <> "" Then If chkSaveFlag.Value = 1 Then Dim rdMSTream As ADODB.Stream Set rdMSTream = New ADODB.Stream rdMSTream.Type = adTypeBinary rdMSTream.Open rdMSTream.LoadFromFile txtFileName rdCon.Fields("cFile").Value = rdMSTream.Read rdCon.Fields("cSaveFlag") = "True" txtFileName = Right(Trim(txtFileName), Len(Trim(txtFileName)) - InStrRev(txtFileName, "\")) Else rdCon.Fields("cSaveFlag") = "False" End If rdCon.Fields("cFileName") = txtFileName rdCon.Fields("iFileSize") = txtFileSize rdCon.Fields("dFileTime") = txtFileTime End If End If If txtDef1 <> "" Then rdCon.Fields("cDefine1") = txtDef1 If txtDef2 <> "" Then rdCon.Fields("cDefine2") = txtDef2 If txtDef3 <> "" Then rdCon.Fields("cDefine3") = txtDef3 If txtDef4 <> "" Then rdCon.Fields("cDefine4") = txtDef4 If txtDef5 <> "" Then rdCon.Fields("cDefine5") = txtDef5 If txtDef6 <> "" Then rdCon.Fields("cDefine6") = txtDef6 '开始事物**************** SysCon.BeginTrans rdCon.Update SysCon.CommitTrans '************************
'On Error GoTo AdoErr:
If AddFlag = "ADD" Then
rdCon.AddNew
rdCon.Fields("cConCode") = txtConCode
End If
rdCon.Fields("cConName") = txtConName
Set rdFindCus = SysCon.Execute("select cCusCode from Cus where Rtrim(Ltrim(cCusName))='" & Trim(txtCus) & "'")
rdCon.Fields("cCusCode") = rdFindCus.Fields(0)
rdCon.Fields("dConDate") = dtpConDate
rdCon.Fields("mConMoney") = txtConMoney
rdCon.Fields("cMemo") = txtMemo
If txtFileName <> "" Then
If Dir(Trim(txtFileName)) <> "" Then
If chkSaveFlag.Value = 1 Then
Dim rdMSTream As ADODB.Stream
Set rdMSTream = New ADODB.Stream
rdMSTream.Type = adTypeBinary
rdMSTream.Open
rdMSTream.LoadFromFile txtFileName
rdCon.Fields("cFile").Value = rdMSTream.Read
rdCon.Fields("cSaveFlag") = "True"
txtFileName = Right(Trim(txtFileName), Len(Trim(txtFileName)) - InStrRev(txtFileName, "\"))
Else
rdCon.Fields("cSaveFlag") = "False"
End If
rdCon.Fields("cFileName") = txtFileName
rdCon.Fields("iFileSize") = txtFileSize
rdCon.Fields("dFileTime") = txtFileTime
End If
End If
If txtDef1 <> "" Then rdCon.Fields("cDefine1") = txtDef1
If txtDef2 <> "" Then rdCon.Fields("cDefine2") = txtDef2
If txtDef3 <> "" Then rdCon.Fields("cDefine3") = txtDef3
If txtDef4 <> "" Then rdCon.Fields("cDefine4") = txtDef4
If txtDef5 <> "" Then rdCon.Fields("cDefine5") = txtDef5
If txtDef6 <> "" Then rdCon.Fields("cDefine6") = txtDef6
'开始事物****************
SysCon.BeginTrans
rdCon.Update
SysCon.CommitTrans
'************************