专家坐堂-weui 柱状图分组显示求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

e.WriteString(ja.ToString) \'返回json数据