Foxtable(狐表)用户栏目专家坐堂 → weui 柱状图 分组显示 求助


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

主题:weui 柱状图 分组显示 求助

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


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
weui 柱状图 分组显示 求助  发帖心情 Post By:2024/8/15 13:53:00 [只看该作者]

如图所示 想要柱状图  看到 每日有 班级数量 颜色区分 ,人数 两个或者多个比较怎么修改代码

图片点击可在新窗口打开查看此主题相关图片如下:1723701041313.jpg
图片点击可在新窗口打开查看
代码如下
Dim wb As New weui 
wb.AppendHTML("<script src='./lib/f2.min.js' ></script>", True) '引用f2组件  
wb.AddForm("", "form1", "banjizhutu") 
With ExWeUI.WebUI.AddF2ChartGroup("", "f2c1", "项目柱状图") 
    With .AddChart("chart01", 1) 
        .DataUrl = "getchartdataedit" '设置数据路径  
        .BarType = 1
    End With 
    wb.InsertHTML("form1", .BuildHtml) 
End With 
wb.AppendHTML("<script src='./lib/exweuif2chart.js' ></script>") '引用exweui封装的js文件  
e.WriteString(wb.Build)



第二部分代码

Dim jo As JObject 
Dim ja As New Jarray 
For Each dr As DataRow In dt.DataRows 
    jo = New JObject 
    jo("日期") = CStr(dr("日期")) 'x轴放到前面     
   jo("班级数量") = CInt(dr("班级数量")) 'y轴放到后面  
    jo("人数") = CInt(dr("人数")) 'y轴放到后面  
    ja.Add(jo) 
Next 
e.WriteString(ja.ToString) '返回json数据

[此贴子已经被作者于2024/8/15 13:54:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/15 14:23:00 [只看该作者]

这种只能领入门,具体应用请自行研究官方文档:https://f2.antv.antgroup.com/

注意的是,新版可能会有不少变化,exweui里的封装未必可用,这种第三方的东西,建议自学官网的用法使用

 回到顶部