怎样加宽两行之间的行距 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With wb.AddPanelGroup("","发社团" & dr("_Identify"),dr("发团社"))

With .Add("线路" & dr("_Identify"),dr("线路名称") & dr("天数"),"门市价: 成人 " & dr("门市价_成人") & " 儿童 " & dr("门市价_儿童") & " 学生价 " & dr("门市价_学生价") & " 老人 " & dr("门市价_老人") & " " )

'"ydxcclxz.htm?id=" & dr("线路编号")

.Badge = "热销中"

.AddFoot(Format(dr("最近发团日期"), "m"))

.AddFoot("发团人数:" & dr("发团人数_目前剩余") & "/" & dr("发团人数_总人数"))

.AddFoot(" 备注:" & dr("备注"))

' .AddFoot("方向:" & dr("方向"))

' .AddFoot("其他信息","http://www.foxtable.com")

If FileSys.FileExists("D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名")) AndAlso CRCCheckFile("D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名")) = dr.SQLGetValue("CRC值") Then '如果本地存在同名文件且CRC校验值相同

.AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

Else '否则从数据库提取文件

dr.SQLLoadFile("路线介绍","D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

.AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

End If

.AddFoot("预定行程","ydxcclxz.htm?id=" & dr("线路编号"))

'.AddFoot("备注:" & dr("备注"))

End With

With wb.AddPanelGroup("","发社团" & dr("_Identify"),dr("发团社"))

'"ydxcclxz.htm?id=" & dr("线路编号")

.Badge = "热销中"

.AddFoot(Format(dr("最近发团日期"), "m"))

.AddFoot("发团人数:" & dr("发团人数_目前剩余") & "/" & dr("发团人数_总人数"))

.AddFoot(" 备注:" & dr("备注")) 加宽与上一行的距离并且另起一行

' .AddFoot("方向:" & dr("方向"))

' .AddFoot("其他信息","http://www.foxtable.com")

.AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

Else '否则从数据库提取文件

dr.SQLLoadFile("路线介绍","D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

.AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))

End If

.AddFoot("预定行程","ydxcclxz.htm?id=" & dr("线路编号"))

'.AddFoot("备注:" & dr("备注"))

End With

参考

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接
            With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息")
                .AddFoot("<div id='test'>其他信息</div>")
            End With
        End With
wb.InsertHTML("<script>test.parentNode.setAttribute('style', 'position: absolute;top: 100px'); </script>")
        e.WriteString(wb.Build) '生成网页
End Select

主题：怎样加宽两行之间的行距