主题：fill 加载表动态增加列并计算

  DataTables("VIP行为信息_VIP行为信息").DataCols.Add("多久", GetType(Integer))

        DataTables("VIP行为信息_VIP行为信息").DataCols.Add("活跃程度", GetType(String), 32)

        For Each dr As DataRow In DataTables("VIP行为信息_VIP行为信息").DataRows

            dr("多久") = (Date.Today - dr("最近购买日期")).TotalDays

            If dr("多久") <= 3 Then

                dr("活跃程度") = "五星级活跃"

            End If

        Next