添加新字段，将同一字段的值显示在此字段中

yanwei82123300

我想在查询2中添加一个字段shortage：用来显示一个值：以CO_NUMBER为条件（如果CO_NUMBER相同，ATP_sleeve字段值小于0），就将COMP_WC字段值显示出来并且字段值之间以逗号形式分隔  例子 CO_NUMBER 382 -vc000383 COMP_WC值为
ge00081x012  ge00374x012  2u856046052 。新字段的值为ge00081x012,ge00374x012,2u856046052

Henry D. Sy

如果CO_NUMBER相同
什么意思

Henry D. Sy

描述不清
ATP_sleeve字段值小于0,是指那一条记录？？？

yanwei82123300

6d 老师：CO_NUMBER相同 指 订单号 相同  ATP_sleeve指递减后原料库存量小于0

yanwei82123300

ATP_sleeve字段值 查询2中第一个字段就是

Henry D. Sy

ATP_sleeve指递减后原料库存量小于0
就是说最后一条记录，小于0

Henry D. Sy

如果不小于0时，如何处理？

yanwei82123300

6d老师如果不小于0时 为空

Henry D. Sy

Public Function gString(strWhere As String) As String
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim strTemp As String
    Dim TF As Boolean
    strSQL = "select ATP_sleeve,COMP_WC from Query2 where CO_NUMBER='" & strWhere & "' order by id desc"
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        If .Fields("ATP_sleeve") < 0 Then
            TF = True
        Else
            TF = False
        End If
        If TF = True Then
            Do While Not .EOF
                strTemp = strTemp & .Fields("COMP_WC") & ";"
                .MoveNext
            Loop
        End If
        .Close
    End With
    If Len(strTemp) <> 0 Then
        gString = Left(strTemp, Len(strTemp) - 1)
    Else
        gString = ""
    End If
    Set rs = Nothing
End Function

kelind

版主高明！