连续数字的问题，请tmtony老师赐教

dellnb

对tmtonyf老师在短消息上热情的回复表示衷心的感谢
ID                      订单                 产品序号
50002               S1                   1
50002              S1                     2
50002             S1                      5
50008             S2                      9
50002              S3                     7
50002              S5                     10
50002              S3                     6
结果表（同一ID的记录合并为一条记录）
ID                            订单                 产品序号
50002               S1                                      1-2 5-7 10
50008               S2                                      9
订单字段内容不重要，可以不用处理，关键是产品序号要做成结果表的格式。请tmtony老师及各位高手赐教

[ 本帖最后由 dellnb 于 2008-3-6 00:26 编辑 ]

dellnb

完全实现了偶所预想的功能,很好很强大

tmtony

我平时都是夜猫子
不知功能是否实现了, 怕会错意思

dellnb

站长弄到这么晚,无私的帮助新手精神令人感动

[ 本帖最后由 dellnb 于 2008-3-6 18:07 编辑 ]

fswxs

好敬佩站长

tmtony

做好了,上传给你

tmtony

Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  Dim rsResult As ADODB.Recordset
  Set rsResult = New ADODB.Recordset
  Dim lngSeqNo As Long
  Dim lngId As Long
  Dim strOrder As String
  
  Dim strStartNo As String
  Dim strEndNo As String
  
  Dim strAllSeqNo As String
  CurrentProject.Connection.Execute "Delete * from tblOrderResult"
  tblOrderResult.Form.Requery
  rsResult.Open "select * from tblOrderResult", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  rs.Open "select * from tblOrder order by FId,FOrder,FSeqno", CurrentProject.Connection, adOpenStatic, adLockReadOnly
  strOrder = ""
  lngId = 0
  lngSeqNo = 0
  Do While Not rs.EOF
   
    If lngId = rs("FId") And strOrder = rs("FOrder") Then
        If rs("FSeqNo") - lngSeqNo = 1 Then
            strEndNo = rs("FSeqNo")
        Else
            If strEndNo = "" Then
               strAllSeqNo = strAllSeqNo & " " & strStartNo
            Else
               strAllSeqNo = strAllSeqNo & " " & strStartNo & "-" & strEndNo
            End If
            'strAllSeqNo = strAllSeqNo & " " & strStartNo & "-" & strEndNo
            strStartNo = rs("FSeqNo")
            strEndNo = ""
        End If
    Else
        If strEndNo = "" Then
           strAllSeqNo = strAllSeqNo & " " & strStartNo
        Else
           strAllSeqNo = strAllSeqNo & " " & strStartNo & "-" & strEndNo
        End If
        If lngId <> 0 Then
            rsResult.AddNew
            rsResult("FId") = lngId
            rsResult("FOrder") = strOrder
            rsResult("FSeqNo") = Trim(strAllSeqNo)
            rsResult.Update
            strAllSeqNo = ""
        End If
        lngId = rs("FId")
        strOrder = rs("FOrder")
        
        strStartNo = rs("FSeqNo")
        strEndNo = ""
    End If
    lngSeqNo = rs("FSeqNo")
    rs.MoveNext
  Loop
    If strEndNo = "" Then
       strAllSeqNo = strAllSeqNo & " " & strStartNo
    Else
       strAllSeqNo = strAllSeqNo & " " & strStartNo & "-" & strEndNo
    End If
  If lngId <> 0 Then
            rsResult.AddNew
            rsResult("FId") = lngId
            rsResult("FOrder") = strOrder
            rsResult("FSeqNo") = Trim(strAllSeqNo)
            rsResult.Update
  End If
  tblOrderResult.Form.Requery

tmtony

今晚做好上传给你.

dellnb

谢谢老师，您受累

tmtony

处理好了一部分,既有连续,也有不连续的号 比较难处理, 可能要明天继续了