VBA（Excel）与 SQL - 比较两行中的值（循环）

Question

这在 SQL 中可能吗？这似乎是一个简单的概念。 （我使用的是 SQL Server 2005）

遍历我的 SQL 表中的所有行 如果一行 =65 并且下一行等于 120，则比较 m 列中的值增加 j，并将该值打印到另一列（q 列）

Sub InsertProductionCycle() 

Dim LR As Long 
Dim j As Integer 

j = 1 
LR = Range("G" & Rows.Count).End(xlUp).Row 

    For i = 1 To LR Step 1 

        Cells(i, "Q").Value = j 

        If Cells(i, "M").Value = 65 And Cells(i + 1, "M").Value = 190 Then 
            j = j + 1 
        End If 
    Next i 

End Sub 

SQL 专家有什么想法吗？我可以在 SQL 中执行此操作吗？ 我对此的想法是： 也许循环有点牵强，（我可以在 sql 作业中运行它），但是您可以比较行并将 j 循环值插入另一列。这就是我卡住的地方。

Answer 1

这很有趣！可能有更有效的方法来执行此操作，但您可以在单个基于集合的语句中执行此操作，而无需循环或游标。

假设一个表格对您的数据进行建模，看起来像这样（i 基本上是您的行号）：

CREATE TABLE MyTable (i int, M int)

我使用自联接将i 行与i+1 行匹配，并使用COUNT 找出Q 列。

;WITH data AS (
    SELECT a.i, a.M, b.M as NextM
        , CASE WHEN a.M = 65 AND b.M = 190 THEN 1 ELSE 0 END AS shouldIncreaseQ
    FROM MyTable a
       LEFT OUTER JOIN MyTable b
          ON a.i + 1 = b.i
)
SELECT data.M, data.NextM
   , (SELECT COUNT(*) + 1 FROM data AS ref 
      WHERE ref.shouldIncreaseQ = 1 AND ref.i <= data.i) as Q
FROM data

如果需要，您可以使用SELECT INTO 将数据放入另一个表中以供将来使用。