第一部分:获取时间前三的信息,产生文字组合列表
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
[此贴子已经被作者于2021/8/8 14:22:52编辑过]