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

此主题相关图片如下：1.png

我想要生产这样子的一个排版的HTML（不是专业报别） 

数据库结构如下

此主题相关图片如下：2.png

 

 

我的想法是这样子的 

 1.先提取 不重复的字母列  这个做到了比较容易

 2.根据提取的不重复的字母列 对 品牌名称列的内容 进行分组  【这个我想了好久都做不出来】

 3.在根据品牌名称 在生成品牌下相对应的车型

 

以上的东西 类似于目录树，现在的问题是要生成为HTML，主要的就是替换HTML的特定的标记

2和3步我怎么样都想不出来，求教！！

 

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

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

 

狐爸 不好意思 可能是我描述不清楚我的问题 我的意思是 根据第一列的值 对第二列进行分组 在根据第二列的值对第三列分组

 

 

此主题相关图片如下：3.png

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

 

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)

哦！ 我明白 我的思路错了 怪不得做不出来

 

Dim cts As List(Of String)
cts = DataTables("表A").GetValues("第一列")
For Each ct As String In cts
    Dim drs As List(Of DataRow)
    drs = DataTables("表A").Select("[第一列] = '" & ct & "'")
    For Each dr As DataRow In drs
        dr("第二列")
    Next
Next

 

我的思路一直就在 能不能提取到另外一个值去  走到死胡同了 一下子没有跳出来 惭愧啊！看来还要多多学习啊！