标题: 子窗体中字段不能为空怎么办?否则提交失败! [打印本页] 作者: jsf2008 时间: 2009-10-23 16:20 标题: 子窗体中字段不能为空怎么办?否则提交失败! Private Sub 提交_Click()
On Error GoTo Err_提交_Click
Dim I, j As Integer
Dim StrTemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Set Rs2 = New ADODB.Recordset
StrTemp = "Select * From RS财务收款明细周转"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
StrTemp = "Select * From RS财务收款明细表"
Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
StrTemp = "Select * From RS财务收款统计"
Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'如果“销售表”为空,则退出
If rs.RecordCount <= 0 Then
Exit Sub
End If
rs.MoveFirst
For I = 0 To rs.RecordCount - 1
CunZai = False
If Rs2.RecordCount < 1 Then
CunZai = False
Else
'判断记录财务收款统计是否存在,是则更新财务收款统计信息
Rs2.MoveFirst
For j = 0 To Rs2.RecordCount - 1
If Rs2("编号") = rs("编号") And Rs2("KF") = rs("KF") And Rs2("FKFS") = rs("FKFS") And Rs2("DDHM") = rs("DDHM") And Rs2("PF") = rs("PF") And Rs2("BB") = rs("BB") And Rs2("HJJE") = rs("HJJE") Then
Rs2("YSK") = Rs2("YSK") + rs("YSK")
Rs2("SYJE") = rs("HJJE") - Rs2("YSK")
Rs2.Update
CunZai = True
Exit For
Else
Rs2.MoveNext
End If
Next j
End If
'不存在则添加新记录
If CunZai = False Then
Rs2.AddNew