主题：用列名作为筛选树节点名，怎样做截图那样

在这个表事件里不要使用CurrentTable和Current这种用法

Select Case e.DataCol.name

    Case "合同期止"

        If e.DataRow.IsNull("合同期止") = False

    Dim t As TimeSpan = CDate(e.DataRow("合同期止")) - Date.Today

            e.DataRow("到期天数") = t.days

        End If

 End Select