以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据丢失  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89326)

--  作者:刘林
--  发布时间:2016/8/19 10:03:00
--  数据丢失
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("成绩")
If e.DataCol.Name = "学校代码" Then
    dr("参考人数") = dt.Compute("count(姓名)","[学校代码] = \'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")
    dr("语文_平均分") = dt.Compute("AVG(语文_语总)","[学校代码] = \'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")
    dr("语文_优秀率") = dt.Compute("count(姓名)","[语文_语总] >= 85 and [学校代码] =\'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")/dr("参考人数")
dr("语文_及格率") = dt.Compute("count(姓名)","[语文_语总] >= 60 and [学校代码] =\'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")/dr("参考人数")
End If


datacolchanged

重置了列后,参考人数,语文_平均分列在系统重开数据不见了,要重新重置,但语文_优秀率,语文_及格率没存在这个问题,请问是什么原因,如何处理?谢谢!!!

--  作者:Hyphen
--  发布时间:2016/8/19 10:37:00
--  
语文_平均分列是不是表达式列?