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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddList 怎么控制加载数据，

共有4693人关注过本帖树形打印复制链接主题：AddList 怎么控制加载数据，

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/5 13:58:00 [显示全部帖子]

此主题相关图片如下：1.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 8:59:00 [显示全部帖子]

页面一

  With ExWeUI.WebUI.AddListGroup("","lst01",4)
                For Each r As DataRow In drs
                    With .AddList(r("网络_缩略图"),r("网络_文件地址"))

                    End With
                Next
        End With

End With

页面二

Dim e As RequestEventArgs = args(0)
Dim json As String = e.PlainText
Dim jo2 As JObject = JObject.parse(json)

Dim jo As new JObject
jo("page") = cint(jo2("page")) + 1
jo("max") = val(jo2("max")) + 8

Dim cnt As Integer = val(jo2("max")) + 1

If cnt>=20 Then '模拟数据加载完毕
jo("done") = True
jo("tip") = "啊哦! 你居然看完了所有内容!"'更改加载完毕后的提示

Else
    Dim wb As New weui
    With ExWeUI.WebUI.AddListGroup("","lst01",4)
            For Each r As DataRow In DataTables("图库_木作定制").SQLSelect("[_Identify] > " & jo2("max").ToString , 8 ,"[_Identify]")
                With .AddList(r("网络_缩略图"),r("网络_文件地址"))

                End With
            Next
    End With
    jo("html") = wb.BuildHtml("pg1")
End If
System.Threading.Thread.Sleep(1000)
e.WriteString(jo.ToString)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 10:51:00 [显示全部帖子]

With ExWeUI.WebUI.AddExInfiniteScroll("pr01","sjjiazai",0,8) '默认显示8行,当行数少不需要滚动的时候是不会触发滚动事件的
        With ExWeUI.WebUI.AddListGroup("","lst01",4)
            For Each r As DataRow In drs
                With .AddList(r("网络_缩略图"),r("网络_文件地址"))
                End With
            Next

.Content = .BuildHtml
End With
wb.InsertHTML(.BuildHtml)
End With

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 11:22:00 [显示全部帖子]

With ExWeUI.WebUI.AddExInfiniteScroll("pr01","sjjiazai",0,8) '默认显示8行,当行数少不需要滚动的时候是不会触发滚动事件的

dim s as string
        With ExWeUI.WebUI.AddListGroup("","lst01",4)
            For Each r As DataRow In drs
                With .AddList(r("网络_缩略图"),r("网络_文件地址"))
                End With
            Next

s= .BuildHtml
End With

.Content = s
wb.InsertHTML(.BuildHtml)
End With

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 12:02:00 [显示全部帖子]

With ExWeUI.WebUI.AddExInfiniteScroll("pr01","sjjiazai.html",0,8)

[此贴子已经被作者于2022/5/9 12:02:08编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 14:52:00 [显示全部帖子]

jo("html") = .BuildHtml
End With

End If
e.WriteString(jo.ToString)

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 16:52:00 [显示全部帖子]

空白格这个不要使用版式4，改为使用版式2

第一页

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
Dim drs As List(of DataRow) = DataTables("图库_木作定制").SQLSelect("",8,"[_Identify]")
With ExWeUI.WebUI.AddExInfiniteScroll("pr01","sjjiazai.html",0,drs(drs.Count - 1)("_Identify"))

第二页面 sjjiazai.html

Dim e As RequestEventArgs = args(0)
Dim json As String = e.PlainText
Dim jo2 As JObject = JObject.parse(json)
Dim drs As List(of DataRow) = DataTables("图库_木作定制").SQLSelect("[_Identify] > " & jo2("max").ToString , 8 ,"[_Identify]")
Dim jo As new JObject
jo("page") = cint(jo2("page")) + 1
jo("max") = cstr(drs(drs.Count - 1)("_Identify"))

Dim cnt As Integer = val(jo2("max")) + 1

If cnt>=20 Then '模拟数据加载完毕
    jo("done") = True
    jo("tip") = "啊哦! 你居然看完了所有内容!"'更改加载完毕后的提示
Else
    Dim wb As New weui
    With ExWeUI.WebUI.AddListGroup("","lst01",4)
        For Each r As DataRow In drs
            With .AddList(r("网络_缩略图"),r("网络_文件地址"))

……

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/9 17:19:00 [显示全部帖子]

麻烦自己学会理解一下代码，不是一抄了事

Dim cnt As Integer = val(jo2("max")) + 1

If cnt>=20 Then '模拟数据加载完毕
jo("done") = True
jo("tip") = "啊哦! 你居然看完了所有内容!"'更改加载完毕后的提示
Else

下一主题 >> << 上一主题

主题：AddList 怎么控制加载数据，