第一部分：获取时间前三的信息，产生文字组合列表

Dim dt As List(of DataRow)  = DataTables("表A").SQLSelect("",3,"时间 desc ")

   With wb.AddPanelGroup("","pg911","")    

      Dim tb As Table = Tables("表A")

      For i As Integer = 0 To 2  

      With .Add("pn172","" & dt(i)("标题") &"","" & dt(i)("备注") & "","","content.htm")     

         .AddFoot("" & dt(i)("时间") & "") 

      End With

     Next

   End With

第二部分：点击对应的文字列表标题，进入content.htm，content.htm要显示对应内容

      也就是说双击标题一，进入content.htm页面显示的内容是标题一对应的备注，点击标题二，进入显示的内容是标题二对应的备注，

      AddContent括号里面动态内容怎么写？

  Case "content.htm"

        With wb.AddArticle("","ar1")

            .AddContent("这里代码怎么写，如何对应备注？")

        End With