'提取当前日期前,入库明细中的入库数量
Dim cmd1 As New SQLCommand
cmd1.C
Dim dt1 As DataTable
代码是：
cmd1.CommandText = "SELECT ([入库单价]) As 入库单价,([加成比率]) As 加成比率 F rom {入库明细} Where [存货编码] = '" & num & "' And 入库明细.[客户编码] Is null And [日期] <= '" & QueryMonth & "' And [日期]=(Select max(入库明细.[日期]) As 日期 f rom 入库明细 where 入库明细.[存货编码]=" & num & " and 入库明细.[日期]<='" & QueryMonth & "' And 入库明细.[客户编码] Is null )"
dt1 = cmd1.ExecuteReader
If dt1.DataRows.Count > 0 Then
rkdj = Math.Round((dt1.DataRows(0)("入库单价")),2)
'psdj = Math.Round((dt1.DataRows(0)("配送单价")),2)
bl = Math.Round((dt1.DataRows(0)("加成比率")),4)
dr("入库单价") = rkdj
dr("加成比率") = bl
End If
加好友 
发短信
Post By：2017/12/28 9:13:00 [只看该作者]
