主题：[求助]下列易表语句在FOXTABLE中怎样写？

语句１：

 

DataTables("流水表").DataRows.Clear()

dim f As New Filler

f.SourceTable = DataTables("另表")

f.SourceCols = "姓名,出现次数"

f.DataTable = DataTables("流水表")

f.DataCols = "正课_姓名,正课_课时"

f.Fill()

先将另表中原计算代码改成：

if DataTables.Contains("临时表") Then

   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("临时表")