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

"合计"是表达式列,通过"基本工资"+"其它补贴"计算出来,但这两个数据列必须要有数据,否则不计算,怎样设置一个默认数值或空,都能计算?

当前行部分列内容复制到另一个表,下面代码怎样改?

For Each dr1 As DataRow In DataTables("基本信息").Select("[姓名] < > ' '")

 

    Dim Cols1() As String = {"工号","姓名","部门"}

    Dim Cols2() As String = {"工号","姓名","调前部门"}

    Dim dr2 As DataRow = DataTables("调动管理").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next

For Each dr1 As DataRow In DataTables("基本信息").Select("[姓名] <> '' and 姓名 is not null")

    Dim dr2 As DataRow = DataTables("调动管理").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next