Dim dr2 As DataRow = DataTables("销售明细201609").sqlFind("日期 = \'" & Format(Date.Now, "yyyy-MM-dd") & "\' And  商品条码 = \'" & e.PostValues("商品条码") & "\'")

            If dr2 Is Nothing Then

                dr2 = DataTables("销售明细201609").AddNew()

                For i As Integer = 0 To Cols1.Length - 1

                    dr2(Cols2(i)) = dr1(Cols1(i))

                    dr2("编号") = e.PostValues("编号")

                    Dim sl3 As String = "" & DataTables("Users").SQLGetComboListString("账号企业名", "Name=\'" & e.Cookies("username") & "\' ") & ""

                    dr2("店名") = sl3

                    dr2("日期") = Format(Date.Now, "yyyy-MM-dd")

                    dr2("年") = Format(CDate(Date.Now), "yyyy")

                    dr2("月") = Format(CDate(Date.Now), "MM")

                    dr2("日") = Format(CDate(Date.Now), "dd")

               

                    Dim dr001 As DataRow = DataTables("今日金价201609").sqlFind("对账品名 = \'" & dr2("对账品名") & "\' And  店名 = \'" & dr2("店名") & "\'")

                    If dr001 IsNot Nothing Then

                        dr2("今日金价金价") = dr001("今日金价金价")

                        dr2("今日金价折扣") = dr001("今日金价折扣")

                    End If

                    dr2("标签价格") = dr2("标签单价价格") * dr2("数量")

                    dr2("金重金额") = dr2("金重") * (dr2("精品工费") + dr2("今日金价金价"))

                    dr2("折扣金额") = dr2("标签价格") * (dr2("今日金价折扣") + dr2("今日金价折扣特价加"))

                    dr2("金额") = dr2("金重金额") + dr2("折扣金额")

                    dr2("库存备注") = "已销售"

                    dr2("行数") = 1

                    dr2("销售") = "已销售"

                    

                    

                    

                    dr2.Save()

                Next

            End If