专家坐堂-自动增加 Panel内容从表获取Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动增加 Panel内容从表获取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116211)

--  作者：yifan3429
--  发布时间：2018/3/21 11:59:00
--  自动增加 Panel内容从表获取

elect Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddPage("","page1") \'增加两个page
        wb.AddPage("","page2",False) \'第二个
        With wb.AddArticle("page1","ar1")
            .AddTitle("h1","关于Foxtable")
            .AddContent("Foxtable将Excel、Access、Foxpro、VB以及易表的优势融合在一起,无论是数据录入、查询、统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
            .AddImage("./images/001.jpg")
        End With
        With wb.AddButtonGroup("page1","btg1")
            .Add("btn1", "下一页", "button").Attribute="""
        End With
        With wb.AddArticle("page2","ar2")
            .AddTitle("h1","关于易表")
            .AddContent("易表.net介于电子表格和数据库软件之间，它有类似电子表格的界面，同时又有很多数据库软件特有的功能和灵活性，它能将复杂的操作简单化，让普通用户轻松完成复杂的数据管理和统计分析工作.")
            .AddImage("./images/002.jpg")
        End With
        With wb.AddButtonGroup("page2","btg2")
            .Add("btn2", "上一页", "button").Attribute="""
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

求助根据表行数内容自动获取

学习表设计好四个列

标题
关键词
内容
图片

With wb.AddArticle("page1","ar1")
            .AddTitle("标题","关于Foxtable")
.AddTitle("关键词","关于Foxtable")
            .AddContent("内容")
            .AddImage("图片")

上一页和下一页分别是上一行和下一行来切换内容

每次用户关闭时记住本次阅读的位置
下次打开的时候就会直接从上次阅读的位置开始

--  作者：有点甜
--  发布时间：2018/3/21 13:19:00
--

写成循环即可。循环每一行，然后添加。

Dim fl As String = "c:\\web\\" & e.path \'合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar" \'这里加上了js扩展名
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        Dim drs = DataTables("表A").Select("")

        For i As Integer = 0 To drs.count-1
            Dim dr = drs(i)
            If i > 0 Then
                wb.AddPage("","page" & i, False) \'增加两个page
            Else
                wb.AddPage("","page" & i) \'增加两个page
            End If
            With wb.AddArticle("page" & i, "ar" & i)
                .AddTitle("h" & i, dr("第一列"))
                .AddContent(dr("第二列"))
                .AddImage("./images/" & dr("第三列"))
            End With
            If i < drs.count-1 Then
                With wb.AddButtonGroup("page" & i,"btg1" & i)
                    .Add("btn1_" & i, "下一页", "button").Attribute="onclick=""hide(\'page" & i & "\');show(\'page" & i+1 & "\')"""
                End With
            End If
            If i > 0 Then
                With wb.AddButtonGroup("page" & i,"btg2" & i)
                    .Add("btn2_" & i, "上一页", "button").Attribute="onclick=""hide(\'page" & i & "\');show(\'page" & i-1 & "\')"""
                End With
            End If
        Next
        e.WriteString(wb.Build) \'生成网页
End Select

--  作者：yifan3429
--  发布时间：2018/3/21 15:23:00
--

.AddTitle("h" & i, dr("标题"))
.AddContent(dr("关键词"))

想把这两行字体加粗怎么写呢

--  作者：有点甜
--  发布时间：2018/3/21 16:28:00
--

如

                .AddTitle("h" & i, "<b>" & dr("第一列") & "</b>")
                .AddContent(”<b>" & dr("第二列") & "</b>")