主题：交叉表代码出错，求助修改

1、将你的数据表传上来测试。

2、

Dim drs As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","工效_" & "j DESC")

你有两个地方有：

 

Dim drs As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'",""工效_" & j DESC")

 

Dim drs As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","合计_工效 DESC")

 

将另一个改为：

Dim drs1  As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","合计_工效 DESC")

 

相应的引用这个drs的代码，也改一下。

提示错误提示都告诉你原因了的:

 

 

 

'载入当月数据
Dim ny As String = Forms("生产工效").Controls("ComboBox1").Text
Dim nf As String = Left(ny,4)
Dim sql,s As String
'根据年份生成临时表
sql = "Select 报表年月,单位,厂家,Sum(加工费) As 加工费, Sum(投工) As 投工,Sum(人均) As 工效,0.1-0.1 As 名次 FROM {日报表} WHERE Left(报表年月,4) = "& nf &" Group By 报表年月,单位,厂家 "
'根据临时表生成分月厂家工效表
Dim b As New CrossTableBuilder("分月厂家工效",sql,"sc")
b.HGroups.AddDef("单位")
b.HGroups.AddDef("厂家")
b.VGroups.AddDef("报表年月")
b.Totals.AddDef("加工费")
b.Totals.AddDef("投工")
b.Totals.AddDef("工效")
b.Totals.AddDef("名次")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
MainTable = Tables("分月厂家工效") '打开生成的统计表
Dim t As Table = Tables("分月厂家工效")
Dim i As Integer =(Tables("分月厂家工效").Cols.Count-6)/4
messagebox.show(i)
For Each r As Row In t.Rows
    For j As Byte = 1 To i
        If r("投工_" & j) <>  0 Then
            r("工效_" & j) = r("加工费_" & j)/r("投工_" & j)
        End If
        If r("投工_" & j) <>  0 Then
            Dim drs As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","工效_" & j & " DESC")
            For n As Byte = 0 To drs.Count - 1 '遍历所有行
                If n > 0 AndAlso drs(n)("工效_" & j) = drs(n-1)("工效_" & j) Then '如果"工效_" & j和上一行相同
                    drs(n)("名次_" & j) = drs(n-1)("名次_" & j) '则排名等于上一行
                Else
                    drs(n)("名次_" & j) = n + 1 '设置名次
                End If
            Next
        End If
    Next
Next
For Each r As Row In t.Rows
    r("合计_工效") = r("合计_加工费")/r("合计_投工")
Next
Dim drs1 As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","合计_工效 DESC")
For n As Byte = 0 To drs1.Count - 1 '遍历所有行
    If n > 0 AndAlso drs1(n)("合计_工效") = drs1(n-1)("合计_工效") Then '如果"合计_工效"和上一行相同
        drs1(n)("合计_名次") = drs1(n-1)("合计_名次") '则排名等于上一行
    Else
        drs1(n)("合计_名次") = n + 1 '设置名次
    End If
Next
t.Cols("单位").TextAlign = TextAlignEnum.Center
t.Cols("合计_名次").TextAlign = TextAlignEnum.Center
t.AutoSizeCols()
MainTable =t
CurrentTable.Cols("合计_加工费").Move(2)
CurrentTable.Cols("合计_投工").Move(3)
CurrentTable.Cols("合计_工效").Move(4)
CurrentTable.Cols("合计_名次").Move(5)

select Round(列,2)

x/0就会出错。

所以凡是有除法的，你都得判断除数是否是0:

 

For Each r As Row In t.Rows
   r("合计_工效") = r("合计_加工费")/r("合计_投工")
Next

 

应该改为：

 

For Each r As Row In t.Rows

    If r("合计_投工") > 0
        r("合计_工效") = r("合计_加工费")/r("合计_投工")

    End If
Next

你其他地方不还是有除法计算吗？一样的修改即可。

1、升级你的foxtable。

2、如果还是不行，做个简单的例子说话。