Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
DataTables("流水表").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("另表")
f.SourceCols = "姓名,出现次数"
f.DataTable = DataTables("流水表")
f.DataCols = "正课_姓名,正课_课时"
f.Fill()
e.DataRow("出现次数") =datatables("临时表").Compute("count(姓名)","姓名='" & e.DataRow("姓名") & "'")
Else
e.DataRow("出现次数") =datatables("课时名单").Compute("count(姓名)","姓名='" & e.DataRow("姓名") & "'")
End if
DataTables("另表").DataRows.Clear()
Dim dtb As New DataTableBuilder("临时表") '创建一个临时表
dtb.AddDef("姓名", GetType(String),12)
dtb.Build()
Tables("临时表").Visible = False
For Each dc As DataCol In DataTables("表2").DataCols
dim f As New Filler
f.SourceTable = DataTables("表2")
f.SourceCols = dc.Name
f.DataTable = DataTables("临时表")
f.DataCols = "姓名"
f.ExcludeNullValue = True
f.Distinct = False
f.Fill()
Next
dim f1 As New Filler
f1.SourceTable = DataTables("临时表")
f1.SourceCols = "姓名"
f1.DataTable = DataTables("另表")
f1.DataCols = "姓名"
f1.Fill()
DataTables("另表").DataCols("出现次数").Recalc
DataTables.Delete("临时表")
谢谢CZY老师! 我正准备重新学习FOXTABLE.
我学FOXTABLE方法有问题:暑假期间我将当时的FOXTABLE帮助看了10多遍,没有上机操作,特别是函数部分未亲自实践,故许多东西似懂非懂.请CZY老师在学习方法上多指点!也请各位网友多谈自己学习心得------- 以期提高解决问题的能力.谢谢!
光看不练是不行的,楼主按实际需要设计一个简单的系统,一步步地来。
我第二遍没看完,就开始试着做简单的程序了。
不过我看得认真,有的感兴趣的代码,我测试过。
谢谢CZY老师! 我正准备重新学习FOXTABLE.
我学FOXTABLE方法有问题:暑假期间我将当时的FOXTABLE帮助看了10多遍,没有上机操作,特别是函数部分未亲自实践,故许多东西似懂非懂.请CZY老师在学习方法上多指点!也请各位网友多谈自己学习心得------- 以期提高解决问题的能力.谢谢!
不会吧,我记得测试是过了9月1日以后的事情了,你的暑期在9月份?
光看不练是不行的,楼主按实际需要设计一个简单的系统,一步步地来。
我第二遍没看完,就开始试着做简单的程序了。
不过我看得认真,有的感兴趣的代码,我测试过。
谢谢wcs的指点,我尝试一段时间.