[求助]请问项目里面的代码那里错了？ - 专家坐堂 - 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编辑过]

往第一列第二列里写如数值就会自动关闭

把代码贴出来看看。

贴出来了，我还没写求平均值的代码，就试了下不行了，直接退出系统

Select Case e.DataCol.Name

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

e.DataRow("第六列") = e.DataRow("第一列")+e.DataRow("第二列")+e.DataRow("第三列")+e.DataRow("第四列")+e.DataRow("第五列")

e.DataRow("第七列") = e.DataRow("第六列")/5

End Select

关键是不一定每行都有数据啊。。。只有3列有数据就得除以3。。。

Select Case e.DataCol.Name

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

Dim cls() As String = { "第一列","第二列","第三列","第四列","第五列" }

Dim count As Integer = 0

Dim sum As Integer = 0

For Each c As String In cls

If e.DataRow.IsNull(c) = False andalso e.DataRow(c) <> 0 Then

sum += e.DataRow(c)

count += 1

End If

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

If count > 0 Then e.DataRow("第七列") = sum/count

End Select

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

有2个问题，1是感谢2位解决，有点蓝的代码还不够完善，因为有可能为0的情况。2是为什么我写的代码会直接导致系统退出，我没发现那里有逻辑错误啊？？

增加一个判断即可

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

Select Case e.DataCol.Name

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

e.DataRow("第六列") = e.DataRow("第一列")+e.DataRow("第二列")+e.DataRow("第三列")+e.DataRow("第四列")+e.DataRow("第五列")

Dim cs() As String = {"第一列","第二列","第三列","第四列","第五列"}

Dim v As Integer

For Each c As String In cs

If e.DataRow.IsNull(c) = False And e.DataRow(c) <> 0 Then

v = v +1

End If

e.DataRow("第七列") = e.DataRow("第六列")/V

End Select

[此贴子已经被作者于2017/2/20 14:42:02编辑过]

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