能否依据三个以上条件进行字段的合并

wufeng980114

todaynew 老师给的例子应该对你有帮助啊

yanwei82123300

todaynew老师您的大作（折腾）还想暂不支持关于有日期格式的合并！对吗？谢谢因为我想做到：1按照日期->-2子项-->3按照co_number将LN字段进行合并，但是它只支持string格式，不支持date格式，请看看谢谢

todaynew

yanwei82123300 发表于 2012-12-8 21:39
todaynew老师您的大作（折腾）还想暂不支持关于有日期格式的合并！对吗？谢谢因为我想做到：1按照日期->-2子 ...

Function allln(co As String, WACO_ITEM As String, Actuator_date As Date) As String
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
    Dim str As String
    ssql = "SELECT co,ln,WACO_ITEM,Actuator_date FROM tblWACO "
    ssql = ssql & "WHERE co='" & co & "' and WACO_ITEM='" & WACO_ITEM & "' and Actuator_date=#" & Actuator_date & "#"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        str = str & rs!ln.Value & ","
        rs.MoveNext
    Next
    allln = Left(str, Len(str) - 1)
    rs.Close
    Set rs = Nothing
End Function

SELECT *, allln([co],[WACO_ITEM],[Actuator_date]) AS ln合并1
FROM tblWACO;

yanwei82123300

todaynew老师谢谢帮助！在此向您致敬1{:soso_e181:}

yanwei82123300

todaynew 发表于 2012-12-11 15:57
Function allln(co As String, WACO_ITEM As String, Actuator_date As Date) As String
    Dim rs As  ...

todaynew老师谢谢帮助，请帮助说明一下每行的代码含义吗？谢谢
我想知道是如何定义的，“知其然，还要知其所以然”

todaynew

yanwei82123300 发表于 2012-12-11 19:40
todaynew老师谢谢帮助，请帮助说明一下每行的代码含义吗？谢谢
我想知道是如何定义的，“知其然，还要知 ...

这简单有什么看不懂的。

Function allln(co As String, WACO_ITEM As String, Actuator_date As Date) As String
    Dim rs As New ADODB.Recordset  '定义一个ado数据集
    Dim ssql As String
    Dim i As Long
    Dim str As String
    ssql = "SELECT co,ln,WACO_ITEM,Actuator_date FROM tblWACO "
    ssql = ssql & "WHERE co='" & co & "' and WACO_ITEM='" & WACO_ITEM & "' and Actuator_date=#" & Actuator_date & "#"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开一个数据集
    For i = 1 To rs.RecordCount
        str = str & rs!ln.Value & ","  '循环拼接字符串
        rs.MoveNext
    Next
    allln = Left(str, Len(str) - 1)  '去掉尾部逗号后作为函数的返回值
    rs.Close
    Set rs = Nothing
End Function

yanwei82123300

todaynew老师后半句，不太明白:for……next循环语句中的意思以及后面的，谢谢