标题：请各位老师指点一下
请各位老师指点一下:
问题一:下列解法能否更进一步优化?
1、6次填充数据过程能否用循环语句或其它更优语句代替?
2、能否精简过程,直接在”另表”中得到结果,不经过”统计数据”这样的过渡表,行吗?
问题二：是否还有其它解法?
‘将”表2”中的数据填充到”另表”中
DataTables("另表").DataRows.Clear()
Syscmd.Project.Compact(False)
‘填充表2第一组数据到另表
dim f1 As New Filler
f1.SourceTable = DataTables("表2")
f1.SourceCols = "名称1,数量1"
f1.Distinct = True
f1.DataTable = DataTables("另表")
f1.DataCols = "名称,数量"
f1.Fill()
‘填充表2第二组数据到另表
dim f2 As New Filler
f2.SourceTable = DataTables("表2")
f2.SourceCols = "名称2,数量2"
f2.Distinct= False
f2.DataTable = DataTables("另表")
f2.DataCols = "名称,数量"
f2.Fill()
‘填充表2第三组数据到另表
dim f3 As New Filler
f3.SourceTable = DataTables("表2")
f3.SourceCols = "名称3,数量3"
f3.Distinct= False
f3.DataTable = DataTables("另表")
f3.DataCols = "名称,数量"
f3.Fill()
‘填充表2第四组数据到另表
dim f4 As New Filler
f4.SourceTable = DataTables("表2")
f4.SourceCols = "名称4,数量4"
f4.Distinct= False
f4.DataTable = DataTables("另表")
f4.DataCols = "名称,数量"
f4.Fill()
‘填充表2第五组数据到另表
dim f5 As New Filler
f5.SourceTable = DataTables("表2")
f5.SourceCols = "名称5,数量5"
f5.Distinct= False
f5.DataTable = DataTables("另表")
f5.DataCols = "名称,数量"
f5.Fill()
‘填充表2第六组数据到另表
dim f6 As New Filler
f6.SourceTable = DataTables("表2")
f6.SourceCols = "名称6,数量6"
f6.Distinct= False
f6.DataTable = DataTables("另表")
f6.DataCols = "名称,数量"
f6.Fill()
‘对”另表”中数据进行分组统计
Dim b As New GroupTableBuilder("统计数据",DataTables("另表"))
b.Groups.AddDef("名称")
b.Totals.AddDef("数量")
b.VerticalTotal = True
b.Build
Maintable = Tables("统计数据")
问题2就不知道了，何不上传你的文件。
用sql的ExecuteReader就可以不用另表了。
另外楼主的表述是否有点问题呀，按理说统计数据是最终结果，另表才是过渡表。
用sql的ExecuteReader就可以不用另表了。
这里的"另表"仍然是过渡表,自由统计的零星数据需放在最终统计表中.
文件如下:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:abcdz.table |
Dim Da As DataTable = DataTables("表2")
DataTables("另表").DataRows.Clear()
Dim TS,T As String
dim i,i1,sum,rs as Integer
For i = 1 to 6
For Each dr As DataRow in Da.Select("姓名" & i & ">''")
If Ts Is Nothing OrElse Ts.Indexof(dr("姓名" & i )) = -1 Then
Ts = Ts & "," & dr("姓名" & i )
End If
Next
Next
rs = Ts.substring(1).split(",").Length
Tables("另表").Addnew(rs)
For i = 0 to rs-1
T = Ts.substring(1).split(",")(i)
Tables("另表").rows(i)("姓名")=T
sum=0
for i1 =1 to 6
sum =sum+Da.Compute("Sum(数量" & i1 & ")","姓名" & i1 & "='" & T & "'")
Next
Tables("另表").rows(i)("数量") = SUm
Next