列的条件汇总

王杰　发表于：2015-08-09 11:48:39 　

根据窗体的提单号码点击之后是表中的提单号码对应的开车步奏(开车步奏的内容不要重复)

缪炜发表于：2015-08-10 09:43:42

Private Sub Command2_Click()
    Dim rst As DAO.Recordset
    Dim str As String
    Set rst = CurrentDb.OpenRecordset("select * from 表1 where 提单号码='" & Me.提单号码 & "'", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
        str = str & "→" & rst("开车步骤")
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    '去除多余的符号
    Me.Text0 = Mid(str, 2, Len(str) - 1)
End Sub

Top

王杰发表于：2015-08-10 15:17:01

您好 缪哥 :

这个有重复的文字,能否再帮我改进下呢

Top

缪炜发表于：2015-08-10 15:43:52

Set rst = CurrentDb.OpenRecordset("select * from 表1 where 提单号码='" & Me.提单号码 & "'", dbOpenDynaset)

改成

Set rst = CurrentDb.OpenRecordset("select distinct 开车步骤 from 表1 where 提单号码='" & Me.提单号码 & "'", dbOpenDynaset)

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

列的条件汇总