来自数据库的困难分组报告

Question

ID  |  Start of range | End of range
------------------------------------
ID1 |  Ok-000001      | Ok-000009
ID1 |  Ok-000010      | Ok-000014
ID1 |  Ok-000015      |
ID1 |  Ok-000016      | Ok-000018
ID1 |  Ok-000037      | Ok-000042
ID2 |  Ok-000043      | Ok-000045
ID2 |  Ok-000046      | Ok-000052

从上面的示例数据库记录中,我想生成一个具有以下格式的报告:

ID1 Ok-000001 - Ok-000018, Ok-000037 - Ok-000042
ID2 Ok-000043 - Ok-000052

在实际数据库中,有554条记录,其中包含1,559个唯一ID.

我会接受任何和所有的指导.我知道我需要按ID分组.我知道我应该忽略"Ok-"并且只使用数值.我不知道如何查看下一条记录中的"范围开始",看它是否是当前记录中"范围结束"的延续.

Answer 1

这在 Ms-access SQL 中是不可能做到的，你必须依赖 VBA

我有 20 分钟可以浪费，所以我为你做了......

如下表命名TableSO

ID  Start of range  End of range
ID1 Ok-000001       Ok-000009      
ID1 Ok-000010       Ok-000014      
ID1 Ok-000015                      
ID1 Ok-000016       Ok-000018      
ID1 Ok-000037       Ok-000042      
ID2 Ok-000043       Ok-000045      
ID2 Ok-000046       Ok-000052   

以下子程序生成您想要的报告

ID  Start of range  End of range
ID1 Ok-000001       Ok-000009      
ID1 Ok-000010       Ok-000014      
ID1 Ok-000015                      
ID1 Ok-000016       Ok-000018      
ID1 Ok-000037       Ok-000042      
ID2 Ok-000043       Ok-000045      
ID2 Ok-000046       Ok-000052   

StrReport 包含：

ID1 Ok-000001 - Ok-000018, Ok-000037 - Ok-000042
ID2 Ok-000043 - Ok-000052

请注意，这与您提供的数据样本完美配合。如果您已经显示了所有可能性，它将适用于您的所有表格。但是您可能忘记指定一些特殊情况，并且您必须相应地调整过程以匹配它们。我已经正确注释了所有代码，以便您可以理解它并在需要时自行修复。

这是唯一的出路。您永远无法通过查询获得这样的报告，而 VBA 就可以实现这一点

编辑

在这种状态下，报告将仅保存在内存中并在调试窗口中打印。这不是最佳的。

您可以做的第一件事是：

1. 创建一个表单
2. 向其中添加一个非常大的文本框，将其命名为TextReport.
3. 添加一个按钮，并在其单击事件中添加过程代码。
4. 在程序的末尾添加一条指令TextReport.Value = strReport

如果你有一张非常大的桌子，这仍然不是最佳选择。另一种可能性是将结果输出到文本文件中：

1. 在 VBA 窗口中的工具/引用下，检查库“ Microsoft Scripting Runtime ”

2. 像这样修改程序，它将把报告输出到 C:/AccessReport.txt

   公共子表SO_Treatment()

   Dim RST As Recordset
   Dim strReport As String
   Dim strStart As String
   Dim strEnd As String
   Dim lngStart As Long
   Dim lngEnd As Long
   Dim strCurrent As String
   Dim strPrev As String
   Dim strID As String
   Dim strPrevID As String
   Dim strPrevEnd As String
   Dim strLastStart As String
   Dim intPrev As Long
   
   ' variables to output to a file :
   Dim objFSO As New Scripting.FileSystemObject
   Dim objFile As Scripting.TextStream
   Const fsoForWriting = 2
   Set objFile = objFSO.OpenTextFile("C:\AccessReport.txt", fsoForWriting, True)
   
   
   Set RST = CurrentDb.OpenRecordset("SELECT ID, [Start of range] as start, [End of range] as end FROM TableSO ORDER BY [Start of range]")
   
   'init before loop
   strLastStart = Trim(RST!start)
   strPrevID = Trim(RST!ID)
   strCurrent = Trim(RST!ID) & " " & strLastStart
   
   
   ' Loop on all records
   While Not RST.EOF
   
       ' Init loop  value
       strID = RST!ID
       strStart = Trim(Nz(RST!start, ""))
       strEnd = Trim(Nz(RST!End, ""))
   
       ' if End Range empty give it the Start range value
       If strEnd = "" Then strEnd = strStart
   
       ' Make numbers out of the ranges
       lngStart = Val(Replace(strStart, "Ok-", ""))
       lngEnd = Val(Replace(strEnd, "Ok-", ""))
   
   
       ' Test if it's a new ID
       If strID <> strPrevID Then
   
           ' Its another ID !!!
   
           ' write new line
           strReport = strReport & strCurrent & " - " & strPrevEnd & vbCrLf
           objFile.WriteLine strCurrent & " - " & strPrevEnd
   
           'reinit curent line
           strCurrent = strID & " " & strStart
           strLastStart = strStart
   
       End If
   
   
       ' Test if we are in a streak of ranges
       If (lngprev + 1) = lngStart Then
   
           ' We are in a streak, do nothing
   
       Else
   
           ' The streak is broken, write current streak and init a new streak
           strCurrent = strCurrent & " - " & strPrevEnd & ", " & strStart
   
           'reinit the start range
           strLastStart = strStart
   
       End If
   
       ' Saving previous values for the next loop
       lngprev = lngEnd
       strPrevEnd = strEnd
       strPrevID = strID
   
   
       RST.MoveNext
   Wend
   
   ' Last write
   strReport = strReport & strCurrent & " - " & strPrevEnd & vbCrLf
   objFile.WriteLine strCurrent & " - " & strPrevEnd
   
   
   ' Et voila :)
   Debug.Print strReport
   objFile.Close
   Set objFile = Nothing
   Set objFSO = Nothing
   

   结束子