Office中国论坛/Access中国论坛

标题: 如何实现这个查询效果呢？ [打印本页]

作者: chenyingfengsx 时间: 2011-11-11 20:51
标题: 如何实现这个查询效果呢？
如何实现下面的效果呢？

显示内容像查询1

bianhao 辊序号                   辊位置

95506    1.2.3.4                1.2:电雕,2.3:卷管

95507    1.2.3.4.5.6.7          1.2:研磨,3.4:电雕,5.6:镀铬,7:卷管

数据库在附件里面！

作者: todaynew 时间: 2011-11-11 21:35
本帖最后由 todaynew 于 2011-11-11 21:36 编辑

Function zpl(BH As String) As String
      Dim str1 As String, str2 As String
      Dim ssql As String
      Dim rs As New ADODB.Recordset
      Dim i As Long
      ssql = "SELECT * FROM gunjindu WHERE bianhao = '" & BH & "' order by gunxuhao"
      rs.Open ssql, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
      str1 = ""
      str2 = rs!gunweizhi.Value
      For i = 1 To rs.RecordCount
         If str2 = rs!gunweizhi.Value Then
            str1 = str1 & rs!gunxuhao.Value & "."
         Else
            zpl = zpl & Left(str1, Len(str1) - 1) & ":" & str2 & " "
            str1 = rs!gunxuhao.Value & "."
            str2 = rs!gunweizhi.Value
         End If
         rs.MoveNext
      Next
      zpl = zpl & Left(str1, Len(str1) - 1) & ":" & str2 & " "
      rs.close: Set rs = Nothing
End Function

作者: chenyingfengsx 时间: 2011-11-12 10:16
多谢！！

作者: yanghua1900363 时间: 2011-11-13 11:33
谢谢分享！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)