主题：试用版 动态增加列有问题？

Select Case e.DataCol.Name

    Case "多久没来_月"

        If e.DataTable.DataCols.Contains("近度级别") AndAlso e.DataRow.IsNull("多久没来_月") = False AndAlso e.DataRow("多久没来_月") >= 0 Then

            Select Case e.DataRow("多久没来_月")

                Case 0 To 2

                    e.DataRow("近度级别") ="活跃"

                Case 3 To 5

                    e.DataRow("近度级别") ="浅睡"

                Case 6 To 8

                    e.DataRow("近度级别") ="休眠"

                Case 9 To 11

                    e.DataRow("近度级别") ="沉睡"

                Case Else

                    e.DataRow("近度级别") ="死卡"

            End Select

        End If

End Select