On Error Resume Next
Dim rstTitles As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Environ$("USERPROFILE") & "\Application Data\专卖店管理系统\study.mdb" & ";Mode=ReadWrite;Persist Security Info=False"
conn.Open
Dim a As Date
Dim t1 As String, t2 As String
t1 = Time$()
conn.BeginTrans
rstTitles.LockType = adLockPessimistic '不能使用adLockBatchOptimistic或adLockReadOnly
rstTitles.CursorType = adOpenDynamic
rstTitles.Open "select * from 库存日报", conn
'-----添加新的库存记录-----'
rs.Open "select * from 库存日报 where format(日期,'yyyy-mm-dd')='" & Format(Date, "yyyy-mm-dd") & "'", conn, 3, 3
If rs.RecordCount = 0 Then
rs1.Open "select * from 库存日报 order by 日期,产品编码", conn, 3, 3
rs1.MoveLast
a = rs1("日期")
For i = Format(rs1("日期") + 1, "yyyy-mm-dd") To Format(Date, "yyyy-mm-dd")
While rs1("日期") = a
rstTitles.AddNew
rstTitles("产品编码") = rs1("产品编码")
rstTitles("产品名称") = rs1("产品名称")
rstTitles("单位") = rs1("单位")
rstTitles("类别") = rs1("类别")
rstTitles("期初数量") = rs1("期末数量")
rstTitles("入库数量") = 0
rstTitles("销售数量") = 0
rstTitles("压货数量") = 0
rstTitles("自用数量") = 0
rstTitles("零售数量") = 0
rstTitles("退货数量") = 0
rstTitles("借入数量") = 0
rstTitles("调换数量") = 0
rstTitles("期末数量") = rs1("期末数量")
rstTitles("日期") = Format(i, "YYYY-MM-DD")
rstTitles.Update
' SQL = "insert into 库存日报(产品编码,产品名称,单位,类别,期初数量,入库数量,销售数量,压货数量,自用数量,零售数量,退货数量,借入数量,调换数量,期末数量,日期)VALUES("""
' SQL = SQL & rs1("产品编码") & ""","""
' SQL = SQL & rs1("产品名称") & ""","""
' SQL = SQL & rs1("单位") & ""","""
' SQL = SQL & rs1("类别") & ""","""
' SQL = SQL & rs1("期末数量") & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & 0 & ""","""
' SQL = SQL & rs1("期末数量") & ""","""
' SQL = SQL & Format(i, "YYYY-MM-DD") & """)"
' conn.Execute SQL
rs1.MovePrevious
Wend
rs1.MoveLast
Next
rs1.Close
End If
rs.Close
conn.CommitTrans
rstTitles.Close
conn.Close
t2 = Time$()
MsgBox t1 & " " & t2
求可用方法。
