主题：写代码时没问题，运行也买有问题，从新运行时出问题，请专家诊断。

我在表“经营11年管控表”的BeforeSelChange事件添加了如下代码：

 

Dim Sum0 As Decimal

Dim Sum1 As Decimal

Dim Sum2 As Decimal

Dim Sum3 As Decimal

Dim Sum4 As Decimal

Dim Sum5 As Decimal

Dim Sum6 As Decimal

 

    Dim bh As Integer

    bh = CurrentTable.Current("编号")

    Sum0 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '开收据'")

    If Sum0<>0 Then

        CurrentTable.Current("开收据额") = Sum0

    Else

        CurrentTable.Current("开收据额") = Nothing

    End If

 

Sum1 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '开fa piao'")

    If Sum1<>0 Then

        CurrentTable.Current("已开piao额") = Sum1

    Else

        CurrentTable.Current("已开piao额") = Nothing

    End If

       

Sum2 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '收预付款'")

    If Sum2<>0 Then

        CurrentTable.Current("预付款") = Sum2

    Else

        CurrentTable.Current("预付款") = Nothing

End If

 

Sum3 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '收二期款'")

    If Sum3<>0 Then

        CurrentTable.Current("二期款") = Sum3

    Else

        CurrentTable.Current("二期款") = Nothing

    End If

 

Sum4 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '收结算款'")

Sum5 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = '"& bh &"' And [业务内容] = '收保留款'")

 

Sum6 = Sum2 + Sum3 + Sum4 + Sum5

    If Sum6<>0 Then

        CurrentTable.Current("累计收款") = Sum6

    Else

        CurrentTable.Current("累计收款") = Nothing

End If

 

写代码时没问题，运行也没有问题，从新运行时出问题，错误提示如下：

 

错误代码位置：经营11年管控表,BeforeSelChange

 

System.NullReferenceException:Object reference not set to an instance of an object.at UserCode.BeforeSelChange(CellRangeChangeEventArgs e)

 

请专家帮助解决。

 

请专家诊断。

编号是整性数据，改为： [编号] = bh  And  后系统不认。

Nothing 改为 0 可能不行，Nothing 是没有数据，可能还没有填写， 0  则会认为此项数据为0 ，统计时有问题。

狐狸爸爸：

    问题没解决，按照你的办法改过后，在添加代码时可以很好的执行，退出后重新进入时， 程序会中止启动，直接退出了。

    按ctrl键可以进入程序，但是一切换表视图就出错。

 狐狸爸爸：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:财务数据录入试验_0629.zip

密码在你的收件箱。

你发给我的表可以打开，但是在做表视图切换时会出错跳出。

 错误提示：

 

 

错误代码位置：经营11年管控表, BeforeSelChange

System.ArgumentOutRangeException:Index was out of range. Must be non-negative and less than the size of the collection.

Parameter name:index

   at System,collection.ArrayList.get_Item(Int32 index)

   at C1.Win.C1FlexGrid.RowCollection.get_ Item(Int32 index)

   at Foxtable.Table.get_Current()

   at UserCode.BeforeSelChange(CellRangeChangeEventArgs e)

狐狸爸爸：

     添加你上面的代码可以工作，也不会跳出，只是在切换表视图时会跳出错误提示，提示内容还是与前面所列一样。

     你添加的对e.Table.Rowsel  的判断是不是因为切入新的表视图时，e.Table.Rowsel  可能会处于系统规定的范围之外。

     如果是的话，能不能在切如新的表视图时，人为的设定e.Table.Rowsel  呢？

那太好了！！在下望眼欲穿，先谢谢了！！