| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]下列易表语句在FOXTABLE中怎样写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1096) |
| -- 作者：abcdzabcdz -- 发布时间：2008/11/11 10:41:00 -- [求助]下列易表语句在FOXTABLE中怎样写？ 下列两段易表语句在FOXTABLE中怎样写？谢谢！ 语句1、 ClearGrid("流水表") And AddRows("流水表",[另表!Rows]-1) And evalfor("流水表","正课_姓名","cell(row,1,""另表"")") And evalfor("流水表","正课_课时","cell(row,2,""另表"")") 语句2、 按纽公式： ClearGrid("另表") And AddRows("另表",Rows*Cols) And SetVariable("%B%",[%A%]) And EvalFor("另表","姓名","Split([%B%],""|"",Row)") And DelFor("另表","姓名"," = ","") And EvalFor("另表","出现次数","CountFor(""另表"",""姓名"",""="",[姓名])") And DelReptRows("另表","姓名") And OpenGrid("另表") And DelFor("另表","姓名"," = ","") 变量%A%，表达式： Eval("Substitute(ListFor(""表2"","""+Substitute(ListCols("表2"),"|",""",2),""、"",""|"")+""|""+Substitute(ListFor(""表2"",""")+""",2),""、"",""|"")") 变量%B%，字符型。 [此贴子已经被作者于2008-11-11 11:07:50编辑过]
|
| -- 作者：czy -- 发布时间：2008/11/12 12:49:00 -- 语句１： DataTables("流水表").DataRows.Clear() dim f As New Filler f.SourceTable = DataTables("另表") f.SourceCols = "姓名,出现次数" f.DataTable = DataTables("流水表") f.DataCols = "正课_姓名,正课_课时" f.Fill() |
| -- 作者：czy -- 发布时间：2008/11/12 12:53:00 -- 先将另表中原计算代码改成： if DataTables.Contains("临时表") Then e.DataRow("出现次数") =datatables("临时表").Compute("count(姓名)","姓名=\'" & e.DataRow("姓名") & "\'") Else e.DataRow("出现次数") =datatables("课时名单").Compute("count(姓名)","姓名=\'" & e.DataRow("姓名") & "\'") End if （这个论坛有些讨厌，颜色区分的写不了几个字） |
| -- 作者：czy -- 发布时间：2008/11/12 12:53:00 -- 语句２： 语句２： 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("临时表")
|
| -- 作者：abcdzabcdz -- 发布时间：2008/11/12 14:05:00 -- 谢谢CZY老师! 我正准备重新学习FOXTABLE. |
| -- 作者：wcs -- 发布时间：2008/11/13 9:29:00 -- 光看不练是不行的，楼主按实际需要设计一个简单的系统，一步步地来。 |
| -- 作者：blackzhu -- 发布时间：2008/11/13 11:04:00 -- 以下是引用abcdzabcdz在2008-11-12 14:05:00的发言：
谢谢CZY老师! 我正准备重新学习FOXTABLE. 不会吧，我记得测试是过了9月1日以后的事情了，你的暑期在9月份？ |
| -- 作者：abcdzabcdz -- 发布时间：2008/11/13 11:10:00 -- 写错了,是"假期". |
| -- 作者：abcdzabcdz -- 发布时间：2008/11/13 11:12:00 -- 以下是引用wcs在2008-11-13 9:29:00的发言：
光看不练是不行的，楼主按实际需要设计一个简单的系统，一步步地来。 谢谢wcs的指点,我尝试一段时间. |