主题：[求助]打分系统

生成一个表，用来打分

Dim dtb As new DataTableBuilder("打分")
Dim str As String = ""
dtb.AddDef("日期", Gettype(Date))
For Each dr As DataRow In DataTables("考核指标").Select("")
    dtb.AddDef(dr("检查项"), Gettype(Boolean))
    dtb.AddDef(dr("检查项") & "_分数", Gettype(Double), cstr(dr("分值")))
    str &= "iif(" & dr("检查项") & " = true, isnull(" & dr("检查项") & "_分数, 0), 0)+"
Next
dtb.AddDef("得分", Gettype(Double), str.trim("+"))
dtb.Build

 把打分内容填回去

Dim f As new Filler
f.SourceTable = DataTables("打分") '指定数据来源
f.SourceCols = "日期,得分" '指定数据来源列
f.DataTable = DataTables("考核结果") '指定数据接收表
f.DataCols = "日期,得分" '指定数据接收列
f.Fill() '填充数据