[已解决]大家帮我看看出库单的问题

kingd

设计一出库单每次点打印自动把当前内容输出到数据库备份，并自动清除当前表格内容且编号加1，后两个功能已实现。但

自动把当前内容输出到数据库备份程序报告数据库已经保存成功，可数据库里没有内容。怎么回事？

ITlNmheA.rar (20.57 KB, 下载次数: 14)

2010-3-29 11:02 上传

点击文件名下载附件
大家帮我看看出库单的问题

最佳答案

月排行榜 / 总排行榜

FookYou

2010-3-29 14:21

B43mDZpY.rar (21.95 KB, 下载次数: 22)

2010-3-29 14:20 上传

点击文件名下载附件
大家帮我看看出库单的问题
Sub 保存()
  Dim mydb As Database
  Dim Rs As DAO.Recordset
  Dim Arr, i%, j%
    Arr = Range("A5:H9")
    Set mydb = OpenDatabase(ThisWorkbook.Path & "\MyData.mdb")
    Set Rs = mydb.OpenRecordset(Name:="出库单汇总", Type:=dbOpenDynaset)
    For i = 1 To 5
      If Arr(i, 1) <> "" Then
        Rs.AddNew
        Rs.Fields(0) = [H2]
        Rs.Fields(1) = [H3]
        Rs.Fields(2) = [B3]
        For j = 3 To 10
          Rs.Fields(j) = Arr(i, j - 2)
        Next
        Rs.Fields(11) = Rs.Fields(9) * Rs.Fields(10)
        Rs.Update
      End If
    Next
    Rs.Close
    mydb.Close
End Sub

跳转到最佳答案楼层

FookYou

B43mDZpY.rar (21.95 KB, 下载次数: 22)

2010-3-29 14:20 上传

点击文件名下载附件
大家帮我看看出库单的问题
Sub 保存()
  Dim mydb As Database
  Dim Rs As DAO.Recordset
  Dim Arr, i%, j%
    Arr = Range("A5:H9")
    Set mydb = OpenDatabase(ThisWorkbook.Path & "\MyData.mdb")
    Set Rs = mydb.OpenRecordset(Name:="出库单汇总", Type:=dbOpenDynaset)
    For i = 1 To 5
      If Arr(i, 1) <> "" Then
        Rs.AddNew
        Rs.Fields(0) = [H2]
        Rs.Fields(1) = [H3]
        Rs.Fields(2) = [B3]
        For j = 3 To 10
          Rs.Fields(j) = Arr(i, j - 2)
        Next
        Rs.Fields(11) = Rs.Fields(9) * Rs.Fields(10)
        Rs.Update
      End If
    Next
    Rs.Close
    mydb.Close
End Sub

kingd

谢谢，大侠学习学习。就是总价不对

[此贴子已经被作者于2010-3-29 15:19:21编辑过]

FookYou

不知道你的总价是怎么计算的？

kingd

[已解决]大家帮我看看出库单的问题

[已解决]大家帮我看看出库单的问题

每张单子的总价。

这张应该是4960，怎么会是6860。还有一个总价存放位置的难题。望赐教！！！

好了。谢谢FookYou哥。

Sub 保存()
  Dim mydb As Database
  Dim Rs As DAO.Recordset
  Dim Arr, i%, j%
    Arr = Range("A5:H9")
    Set mydb = OpenDatabase("d:\出库单汇总\出库单汇总.mdb")
    Set Rs = mydb.OpenRecordset(Name:="出库单汇总", Type:=dbOpenDynaset)
    For i = 1 To 5
      If Arr(i, 1) <> "" Then
        Rs.AddNew
        Rs.Fields(0) = [H2]
        Rs.Fields(1) = [H3]
        Rs.Fields(2) = [B3]
        For j = 3 To 10
          Rs.Fields(j) = Arr(i, j - 2)
        Next
       'Rs.Fields(11) = Rs.Fields(9) * Rs.Fields(10)
        Rs.Update
      End If
    Next
    Rs.AddNew
     Rs.Fields(0) = "总价:"
     Rs.Fields(10) = [H5] + [H6] + [H7] + [H8] + [H9]
    Rs.Update
    MsgBox "数据保存完毕！"
    Rs.Close
    mydb.Close
End Sub

[此贴子已经被作者于2010-3-29 18:49:32编辑过]