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
End With
加好友 
发短信
Post By：2019/6/4 12:24:00 [显示全部帖子]
