主题：[求助]选择不同的行设置不同的列标题

Dim dr1s As List(of DataRow) = DataTables("绩效_考核_评分人员").Select("编号1 = "& e.Table.Current("_Identify") &"")
For Each dr1 As DataRow In dr1s
    msgbox(1)
    If DataTables("绩效_考核_统分表").DataCols.Contains(dr1("评分人员列名")) Then
        msgbox(2)
        DataTables("绩效_考核_统分表").DataCols(dr1("评分人员列名")).Caption = dr1("代表人员")
    End If
Next

DataTables("绩效_考核_统分表").BuildHeader()

如果还有问题，做一个实例发上来测试