主题：两个问题，求狐爸解答

如题：1，在systemIdle 事件我添加了如下代码：Dim sum As Double
With CurrentTable
    sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
Dim jis As Integer = (CurrentTable.bottomrow - CurrentTable.TopRow + 1) * (CurrentTable.RightCol - CurrentTable.LeftCol + 1)
Dim pju As Double = sum / jis
Dim msg3 As String = "计数:" & cstr(jis) & " 和:" & cstr(sum) & " 平均:" & cstr(pju)
statusbar.message3 = msg3

不知道这些代码有什么问题，有时会出现错误提示，但是几率不大，可能用一天会出现几次。然后说该事件的代码停止运行，然后只有重新打开项目就又可以了。

2，第二个问题很奇怪。在一个子表里打开了一个窗口，在点击窗口输入框的下拉箭头时该子表突然闪跳到另一组数据，实际上是这个表的父表的current跳到另一行，然后子表跟随的变动了。这种情况的几率很小，有时几天才遇到一次。百思不得其解。

1、最好加个判断，判断是否存在CurrentTable，是否存在Current。

 

if CurrentTale Is Nothing Orlelse CurrentTable.Current Is Nothing Then

   statusbar.message3 = “”

Else

   原来的代码

End If

 

还有原来的代码，jis最好也判断一下是否为0，不要出现除0的情况

 

2、这个不好说。

多谢狐爸的解答。

再问，第二个问题能不能说个大概也许可能哪里有问题。因为我点击窗口的下拉箭头不涉及到我自己的代码，所以我就不明白问题所在了。

第二个问题能上个例子重现错误,才能找出问题所在.