[求助]请问项目里面的代码那里错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在表属性的datacolchaged里面写了点代码，但是不是报错就是自动退出。。怎么写都不对，我想要实现，一行有6列双精度小数列，第六列等于前面5列之和，第七列等于前面5列的平均值。我这样写的代码为什么会导致系统自动关闭，请问该怎么写？

突然想起来个问题，如果我在窗口里定义了个代码a为整数，在表属性的datacolchaged也定义了a为整数，2个定义的a会不会冲突？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.foxdb

Select Case e.DataCol.Name

Case "第一列","第二列","第三列","第四列","第五列","第六列"

Dim a As Integer = 0

If e.DataRow.IsNull("第一列") OrElse e.DataRow("第一列") = 0 Then

e.DataRow("第一列") = Nothing

Else

a = 1

e.DataRow("第六列") = e.DataRow("第一列")

End If

If e.DataRow.IsNull("第二列") OrElse e.DataRow("第二列") = 0 Then

e.DataRow("第二列") = Nothing

Else

a = 2

e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第二列")

End If

If e.DataRow.IsNull("第三列") OrElse e.DataRow("第三列") = 0 Then

e.DataRow("第三列") = Nothing

Else

a = 3

e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第三列")

End If

If e.DataRow.IsNull("第四列") OrElse e.DataRow("第四列") = 0 Then

e.DataRow("第四列") = Nothing

Else

a = 4

e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第四列")

End If

If e.DataRow.IsNull("第五列") OrElse e.DataRow("第五列") = 0 Then

e.DataRow("第五列") = Nothing

Else

a = 5

e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第五列")

End If

End Select

[此贴子已经被作者于2017/2/20 13:48:18编辑过]

主题：[求助]请问项目里面的代码那里错了？