以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这种表数据如何用代码生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87520)

--  作者:bohe
--  发布时间:2016/7/12 22:10:00
--  这种表数据如何用代码生成

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160712220730.png
图片点击可在新窗口打开查看
请教如何根据成绩用生成这种表?
[此贴子已经被作者于2016/7/12 22:56:39编辑过]

--  作者:bohe
--  发布时间:2016/7/12 22:14:00
--  
总分为740分,740*0.8之上的为优分,740*0.6之上的为及格,740*0.5之下的为低分
--  作者:大红袍
--  发布时间:2016/7/12 23:18:00
--  

参考

 

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


--  作者:bohe
--  发布时间:2016/7/12 23:28:00
--  
这个例子看了,有点不同
--  作者:bohe
--  发布时间:2016/7/12 23:32:00
--  

Dim dt As DataTable =DataTables("成绩表")
Dim xx As String
For Each r As Row In Tables("总分统计表").Rows
\'    xx = r("学校") 
   xx = "白水中学"
   r("人数") = dt.Compute("Count(报名序号)","[学校] = \'" & xx & "\'")
Next
后面的条件用xx = "白水中学"不出错,但用xx = r("学校")出错
[此贴子已经被作者于2016/7/12 23:34:59编辑过]

--  作者:bohe
--  发布时间:2016/7/12 23:38:00
--  
怪事,现在又不出错了,之前弄了很久就是出错。
--  作者:大红袍
--  发布时间:2016/7/13 9:12:00
--  

 还有什么问题?