'提取此页数据
Dim cmd As New SQLCommand
cmd.C onnection Name = "SqlQqServer" '记得设置数据源名称
cmd.C ommandText = "S elect Count(*) From {生产计划排单}"
If flt > "" Then
cmd.C ommandText = cmd.C ommandText & " where " & flt
End If
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim ppyf As String '匹配已发量
ppyf = "(s elect Sum(发货量) f rom {销售出库} b where c.通知单号 = b.通知单号 And b.状态 = '有效' And b.审核 = 1) As 已发量,"
cmd.C ommandText = "S elect * From (S elect Row_Number() Over(Order by 通知单号) As 序号, c.[_Identify],c.通知单号,c.工程名称,c.业务员,c.开盘时间 As 开盘日期,c.计划方量," & ppyf & (计划方量 - 已发量) As 待发量 & " F rom {生产计划排单} As c "
If flt > "" Then
cmd.C ommandText = cmd.C ommandText & " where " & flt
End If
cmd.C ommandText = cmd.C ommandText & ") As a "
cmd.C ommandText = cmd.C ommandText & " Where 序号>= " & StartRow & " And 序号 <= " & EndRow
这个红字部分应该如何写,晕了,请蓝老师帮我写下算出待发量
[此贴子已经被作者于2020/3/22 13:03:42编辑过]