主题：0225更新后,原正常运行的项目出错

此主题相关图片如下：捕获1.png

看来，以后再升级更新，要小心翼翼了。

Tables("销售往期计划_Table2").SetColVisibleWidth("产品代码|76|产品名称|215|规格型号|85|预测数量|58|计划比率|58|销售数量|58|完成比率|58|销售占比|58")
Tables("销售往期计划_Table2").AllowEdit = False
Tables("销售往期计划_Table2").Filter = "[预测数量] > 0 Or [销售数量] > 0 "
Dim Sum As Double = Tables("销售往期计划_Table2").Compute("Sum(预测数量)")
Dim Sum1 As Double = Tables("销售往期计划_Table2").Compute("Sum(销售数量)")
For Each drs As Row In Tables("销售往期计划_Table2").Rows
    If drs("产品代码") = "12.01.001-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.001-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    ElseIf drs("产品代码") = "12.01.002-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.002-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    ElseIf drs("产品代码") = "12.01.003-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.003-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    ElseIf drs("产品代码") = "12.01.004-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.004-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    ElseIf drs("产品代码") = "12.01.005-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.005-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    ElseIf drs("产品代码") = "12.01.006-2" And drs("预测数量") > 0 Then
        For Each drs1 As Row In Tables("销售往期计划_Table2").Rows
            If drs1("产品代码") = "12.01.006-1" And drs1("销售数量") > 0 Then
                drs("预测数量") = drs("预测数量") - drs1("销售数量")
                drs1("预测数量") = drs1("销售数量")
                drs1("fzm") = 1
            End If
        Next
    End If
Next

For Each dr As Row In Tables("销售往期计划_Table2").Rows
    If dr("预测数量") > 0 Then
        dr("计划比率") = dr("预测数量") / Sum
    End If
Next
For Each dr1 As Row In Tables("销售往期计划_Table2").Rows
    If dr1("销售数量") > 0 Then
        dr1("销售占比") = dr1("销售数量") / Sum1
    End If
Next
For Each dr2 As Row In Tables("销售往期计划_Table2").Rows
    If dr2("销售数量") > 0  And dr2("预测数量") > 0 Then
        dr2("完成比率") = dr2("销售数量") / Sum
    End If
Next
Dim t As Table = Tables("销售往期计划_Table2")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "fzm"
g.TotalOn = "预测数量,销售数量,计划比率,完成比率,销售占比"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "预测数量,销售数量,计划比率,完成比率,销售占比"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() '生成汇总模式
Dim ddr As Row = Tables("销售往期计划_Table2").Rows(Tables("销售往期计划_Table2").count(True) -1, True)
Dim dds,dds1,dds2 As Double
dds = Tables("销售往期计划_Table2").Compute("Sum(计划比率)", "计划比率 <= 完成比率")
dds1 = Tables("销售往期计划_Table2").Compute("Sum(完成比率)", "完成比率 >= 计划比率")
dds2 = dds1 - dds
ddr("完成比率") = ddr("完成比率") - dds2
Dim r As Integer = Forms("计划导航").Controls("TextBox12").Value
Dim r1 As Integer = Forms("计划导航").Controls("TextBox13").Value
e.Form.Controls("TextBox1").Select()
With e.Form.Controls("TextBox1")
    If .Value = "" Then
        .Value = r
    End If
End With
e.Form.Controls("TextBox2").Select()
With e.Form.Controls("TextBox2")
    If .Value = "" Then
        .Value = r1
    End If
End With
e.Form.Controls("Button1").Select()

Messagebox.Show(ddr("完成比率") & "|" & ddr("完成比率") & "|" & dds2)

此主题相关图片如下：捕获.png

完成比率成了文本，可在升级之前，一直运行正常啊

问题是这个项目已运行了几个月，也经历了几次狐表更新，均未出现过问题，就这次更新出问题了，还有,可能不止这一个问题，我试着将此段代码去掉后再运行，结果无数据显示。让人头疼的是，此项目已经更新过的狐表打开过，0225之前的狐表版本均无法将其打开，

请狐狸他爹给想个办法（如果我没搞错的话，先前那个有“严重bug”的0225版本，好像没出过这类问题）