主题：求助如何生产产品列表生产

加一个拼音列，提取每个品牌的拼音缩写：

http://www.foxtable.com/help/topics/1270.htm

这个对你来说，真的不难，可能你没有思考过：

Dim val As String
For Each a As String In DataTables("表A").GetValues("第一列")
    val = val & vbcrlf
    val = val & "<DIV>" & a & "<Div>"
    For Each b As String In DataTables("表A").GetValues("第二列","第一列 = '" & a & "'" )
        val = val & vbcrlf
        val = val & "    <DIV>" & b & "<Div>"
        For Each c As String In DataTables("表A").GetValues("第三列","第一列 = '" & a & "' And 第二列 = '" & b & "'" )
            val = val & vbcrlf
            val = val & "        <DIV>" & c & "<Div>"
        Next       
    Next
Next
output.show(val)