主题：提取不重复值

切实在客户统计表时，统计表中的“客户名称”自动提取订单表中“客户名称”的不重复值。

If MainTable.Name = "客户统计" Then
    Dim f As New Filler
    f.SourceTable = DataTables("订单明细") '指定数据来源
    f.SourceCols = "客户名称" '指定数据来源列
    f.DataTable = DataTables("客户统计") '指定数据接收表
    f.DataCols = "客户户名" '指定数据接收列
    f.Fill() '填充数据
End If

我的想法是切换到客户统计表，自动更新客户名称，然后计算每个客户在订单情况（统计订单明细相关数据），但是这些，一旦切换到客户统计表就会自动关闭项目

我按照例子中代码做了，可以实现统计功能，但是有些计算结果是零，在datacolchanging中写了以下代码

If e.DataCol.IsNumeric Then
    If e.NewValue = 0 Then
        e.NewValue = Nothing
    End If
End If

想在表中没有零值，这样会自动关闭项目，怎么才能既实现想要计算功能，又能没有零值。

在表属性有这一段代码则自动关闭项目，把这段代码注释以后则项目不会自动关闭了，这是什么原因。