Foxtable(狐表)用户栏目专家坐堂 → exweui 快递控件怎样运用


  共有3132人关注过本帖树形打印复制链接

主题:exweui 快递控件怎样运用

帅哥哟,离线,有人找我吗?
a2704a
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:121 积分:958 威望:0 精华:0 注册:2020/9/27 9:12:00
exweui 快递控件怎样运用  发帖心情 Post By:2020/12/1 16:25:00 [只看该作者]

例子是用json的,如果我数据表 有个 时间,内容列,怎样写?
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
Dim fl As String = HttpServer.WebPath & "\快递.json"
If FileSys.FileExists(fl)
    Dim txt As String = FileSys.ReadAllText(fl)
    Dim jo As JObject = Jobject.Parse(txt)
    If jo("showapi_res_body")("data") IsNot Nothing Then
        With ExWeUI.WebUI.AddStepGroup("","step1","",,2)
            For Each jt As JToken In jo("showapi_res_body")("data")
                With .AddStep("st01","",jt("time").ToString)
                    .Description = jt("context").ToString
                End With
            Next
            wb.InsertHTML(.BuildHtml)
        End With
    End If
    e.WriteString(wb.Build)
Else
    e.WriteString("没有查到快递信息")
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110582 积分:562806 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/1 16:31:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)

With ExWeUI.WebUI.AddStepGroup("","step1","",,2)
    For Each dr As DataRow In DataTables("表A").DataRows
        With .AddStep("st01","",dr ("时间"))
            .Description = dr ("内容")
        End With
    Next
    wb.InsertHTML(.BuildHtml)
End With


 回到顶部