主题：[求助]查询语句代码有点复杂，请老师帮我看看-9楼更新问题

'提取此页数据

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