Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]成绩公式如何写?


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

主题：[求助]成绩公式如何写?
帅哥哟，离线，有人找我吗？
大雪山
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		[求助]成绩公式如何写?  发帖心情 Post By：2016/9/29 14:32:00 [显示全部帖子]

按学号将课程名成绩横排到成绩1的公式怎么写?
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成绩.table
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/9/29 15:47:00 [显示全部帖子]

1.多增加一个学号字段,这公式怎么改?  2.表B是临时表,想改成正常的

 

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").Select("姓名 = '" & v & "'")
        dr1(dr2("课程")) = dr2("分数")
    Next
Next
MainTable = Tables("表B")

[此贴子已经被作者于2016/9/29 16:01:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/9/30 8:53:00 [显示全部帖子]

加入学号出错,该如何修改?

 

 

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级",Gettype(String),10)
dtb.AddDef("学号",Gettype(String),12)
dtb.AddDef("姓名",Gettype(String),20)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String() In DataTables("表A").GetValues("班级|姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("班级") = v(0)
    dr1("学号") = v(0)
    dr1("姓名") = v(1)
    For Each dr2 As DataRow In DataTables ("表A").Select("班级= '" & v(0) & "' And  姓名= '" & v(1) & "'")
        dr1(dr2("课程")) = dr2("分数")
    Next
Next

MainTable = Tables("表B")

 

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/3 12:24:00 [显示全部帖子]

 

表达式关联出错,问题如何解决操作呢?

 


图片点击可在新窗口打开查看此主题相关图片如下：s84~h}v3s@5$4wadd~d4sxy.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/6 17:37:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.xls

 

 

EXCL 表中的buser字段的红色字部分添加到表中的修改公式?我做的加不进去.
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/8 9:56:00 [显示全部帖子]

B表中选定的内容导入到A表相同字段的按钮公式?

 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/11 9:52:00 [显示全部帖子]

1. 按钮中成绩单表头如何设? 2.加姓名字段的命令

 

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:班级 名单.table




图片点击可在新窗口打开查看此主题相关图片如下：@ju9vo02xzsk{iy`pz29.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/10/11 10:03:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/11 11:41:00 [显示全部帖子]

关联打印中只设置学号，现想增加成绩单表头和姓名字段，不知怎么修改目前这公式。

 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/11 14:37:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个新报表
Dim rx As prt.RenderText '定义一个文本对象

Dim rt As prt.RenderTable  '定义一个新表格
Dim Rows As List(Of DataRow)
Dim tbl As Table = Tables("student")

 

Dim dr As Row

For i As Integer = tbl.TopRow To tbl.BottomRow
    dr = Tables("student").Rows(i)
    rx = New prt.RenderText
    rx.BreakBefore = prt.BreakEnum.Page '另起一页再打印
    rx.Style.FontSize = 14
    rx.Style.FontBold = True
    rx.Style.Spacing.Bottom = 5
    rx.Text = "成绩单  学号  姓名: " & Tables("student").Rows(i)("suser")
    doc.Body.Children.Add(rx)
   
    rt = New prt.RenderTable
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)
    rt.CellStyle.Spacing.All = 1
    rt.Cols.Count = 4
    rt.Cells(0,0).Text = "序号"
    rt.Cells(0,1).Text = "学号"
    rt.Cells(0,2).Text = "姓名"
    rt.Cells(0,3).Text = "身份证"
    rt.Cells(0,4).Text = "工作单位"
    rt.Cells(0,5).Text = "中止"
    rt.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.LightGray)
    rt.rows(0).Style.Borders.Bottom = New prt.LineDef(1,Color.LightGray)
   
    Rows = Tables("student").Rows(i).DataRow.GetChildRows("bbs")
    For r As Integer = 0 To Rows.Count - 1
        rt.Cells(r+1,0).Text = rows(r)("bid")
        rt.Cells(r+1,1).Text = rows(r)("课程")
        rt.Cells(r+1,2).Text = rows(r)("bresult")
        rt.Cells(r+1,3).Text = rows(r)("buser")
        rt.Cells(r+1,4).Text = rows(r)("cla_id")
       
       
       
    Next
   
    doc.Body.Children.Add(rt)
    rx = New prt.RenderText
    rx.Style.FontBold = True
    rx.Style.Spacing.Top = 3
    rx.Text = "课程数目: " & Rows.Count
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right
    doc.Body.Children.Add(rx)
Next
doc.Preview

 

 

 

 

 

需两行,欲改成第一行  成绩单, 第二行 学号 姓名在同一行上的表.


 


图片点击可在新窗口打开查看此主题相关图片如下：61mw8p9@~aqo%(v%j{$t88.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/10/11 14:43:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2973 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2016/10/11 15:50:00 [显示全部帖子]

加了一个"继续教育部"表头出错,麻烦老师能再给我修改一下,谢谢

 

Dim doc As New PrintDoc '定义一个新报表
Dim rx As prt.RenderText '定义一个文本对象

Dim rt As prt.RenderTable  '定义一个新表格
Dim Rows As List(Of DataRow)
Dim tbl As Table = Tables("student")

rt.Cells(0,0).text = "继续教育部"
rt.Cells(0,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中

Dim dr As Row
For i As Integer = tbl.TopRow To tbl.BottomRow
    dr = Tables("student").Rows(i)
    rx = New prt.RenderText
    rx.BreakBefore = prt.BreakEnum.Page '另起一页再打印
    rx.Style.FontSize = 14
    rx.Style.FontBold = True
    rx.Style.Spacing.Bottom = 5
    rx.Text = "成绩单" & vbcrlf & "学号: " & dr("suser") & " 姓名: " & dr("sname")
    doc.Body.Children.Add(rx)
   
    rt = New prt.RenderTable
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)
    rt.CellStyle.Spacing.All = 1
    rt.Cols.Count = 4
    rt.Cells(0,0).Text = "序号"
    rt.Cells(0,1).Text = "学号"
    rt.Cells(0,2).Text = "姓名"
    rt.Cells(0,3).Text = "身份证"
    rt.Cells(0,4).Text = "工作单位"
    rt.Cells(0,5).Text = "中止"
    rt.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.LightGray)
    rt.rows(0).Style.Borders.Bottom = New prt.LineDef(1,Color.LightGray)
   
    Rows = Tables("student").Rows(i).DataRow.GetChildRows("bbs")
    For r As Integer = 0 To Rows.Count - 1
        rt.Cells(r+1,0).Text = rows(r)("bid")
        rt.Cells(r+1,1).Text = rows(r)("课程")
        rt.Cells(r+1,2).Text = rows(r)("bresult")
        rt.Cells(r+1,3).Text = rows(r)("buser")
        rt.Cells(r+1,4).Text = rows(r)("cla_id")
       
       
       
    Next
   
    doc.Body.Children.Add(rt)
    rx = New prt.RenderText
    rx.Style.FontBold = True
    rx.Style.Spacing.Top = 3
    rx.Text = "课程数目: " & Rows.Count
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right
    doc.Body.Children.Add(rx)
Next
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview
 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 8 次数据查询