Foxtable(狐表)用户栏目专家坐堂 → 转置后的临时表怎么用


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

主题:转置后的临时表怎么用

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


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 8:50:00 [只看该作者]

参考下面的方法二

 

http://www.foxtable.com/webhelp/scr/0968.htm


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


加好友 发短信
等级:三尾狐 帖子:607 积分:4241 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2018/11/10 11:59:00 [只看该作者]

如果写成交叉统计写成

Dim str3,str4 As String
str3 = forms("统计").Controls("ComboBox3").value
str4 = forms("统计").Controls("ComboBox4").value


Dim g As New CrossTableBuilder("成绩排名表", DataTables("成绩登记表"))
g.HGroups.AddDef("考试期数")
g.HGroups.AddDef("班级")
g.HGroups.AddDef("学号")
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("课程名称")
g.Totals.AddDef("分数", "分数")
g.Totals.AddDef("排名")
g.Filter = "[姓名] = '"& str3 & "'"
g.Filter = "[课程名称] = '"& str4 & "'"
'g.HorizontalTotal = True
g.Build()

 

运行效果

 


此主题相关图片如下:qq图片20181110114448.png
按此在新窗口浏览图片

如果交叉统计写成


 

Dim str3,str4 As String
str3 = forms("统计").Controls("ComboBox3").value
str4 = forms("统计").Controls("ComboBox4").value


Dim g As New CrossTableBuilder("成绩排名表", DataTables("成绩登记表"))
g.HGroups.AddDef("考试期数")
g.HGroups.AddDef("班级")
g.HGroups.AddDef("学号")
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("课程名称")
g.Totals.AddDef("分数", "分数")
g.Totals.AddDef("排名")

g.Filter = "[课程名称] = '"& str4 & "'"
g.Filter = "[姓名] = '"& str3 & "'"


'g.HorizontalTotal = True
g.Build()

 

运行效果是

 


此主题相关图片如下:qq图片20181110114630.png
按此在新窗口浏览图片

 

如何能把个人的单科成绩查询出来


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


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/10 12:04:00 [只看该作者]

g.Filter = "[课程名称] = '" & str4 & "' and [姓名] = '" & str3 & "'"

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


加好友 发短信
等级:三尾狐 帖子:607 积分:4241 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2018/11/10 12:16:00 [只看该作者]

解决了

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


加好友 发短信
等级:三尾狐 帖子:607 积分:4241 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2018/11/10 14:21:00 [只看该作者]

以下是生成图表的代码

'-------------------------生成图表-------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("成绩排名表") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.bar 'XYPlot '图表类型改为Bar(条形)
'Chart.VisualEffect = True
Chart.DataSource = "成绩排名表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.Major = 10
Chart.AxisY.Major = 200
For Each c As Col In t.Cols
    If c.Name <> "考试期数" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Caption  ' Name '设置图系的标题
        Series.X.DataField = "考试期数" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
        Series.DataLabelText = "{#YVAL}"
    End If
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
'-------------------------------
Chart.HeaderText = forms("统计").Controls("ComboBox4").value & "成绩变化趋势"
Chart.AxisX.Text = "考试期数"
    Chart.AxisY.Text = "考分"

 

怎样消除不需要的信息,如下图

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20181110140808.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/10 14:31:00 [只看该作者]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("成绩排名表") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.bar 'XYPlot '图表类型改为Bar(条形)
'Chart.VisualEffect = True
Chart.DataSource = "成绩排名表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.Major = 10
Chart.AxisY.Major = 200

Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = c.Caption  ' Name '设置图系的标题
Series.X.DataField = "考试期数" 'X轴绑定到产品列
Series.Y.DataField = forms("统计").Controls("ComboBox4").value '设置Y轴的绑定列
Series.DataLabelText = "{#YVAL}"

Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
'-------------------------------
Chart.HeaderText = forms("统计").Controls("ComboBox4").value & "成绩变化趋势"
Chart.AxisX.Text = "考试期数"
Chart.AxisY.Text = "考分"

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


加好友 发短信
等级:三尾狐 帖子:607 积分:4241 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2018/11/10 16:03:00 [只看该作者]

甜老师,无图展现

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


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/10 16:03:00 [只看该作者]

请上传具体实例说明

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


加好友 发短信
等级:三尾狐 帖子:607 积分:4241 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2018/11/10 16:08:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:成绩管理试做.table


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


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/10 16:26:00 [只看该作者]

Dim dict As new Dictionary(of String,String)
For Each dc As DataCol In DataTables("成绩排名表").DataCols
    If dc.Caption > "" Then
    dict.Add(dc.Caption,dc.Name)
    End If
Next
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("成绩排名表") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.bar 'XYPlot '图表类型改为Bar(条形)
'Chart.VisualEffect = True
Chart.DataSource = "成绩排名表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.Major = 10
Chart.AxisY.Major = 200

Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = str4 ' Name '设置图系的标题
Series.X.DataField = "考试期数" 'X轴绑定到产品列
Series.Y.DataField = dict(str4) '设置Y轴的绑定列
Series.DataLabelText = "{#YVAL}"


Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
'-------------------------------
Chart.HeaderText = forms("统计").Controls("ComboBox4").value & "成绩变化趋势"
Chart.AxisX.Text = "考试期数"
Chart.AxisY.Text = "考分"

 回到顶部
总数 96 上一页 1 2 3 4 5 6 7 8 9 10 下一页