以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]选择不同的行设置不同的列标题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133697)
--  作者：紫色幽魂
--  发布时间：2019/4/18 11:06:00
--  [求助]选择不同的行设置不同的列标题
列标题不能选择不同的行显示不同列标题，是怎么回事儿，代码放在PositionChanged里面的
Dim dr1s As List(of DataRow) = DataTables("绩效_考核_评分人员").Select("编号1 = "& e.Table.Current("_Identify") &"")
For Each lm As DataCol In DataTables("绩效_考核_统分表").DataCols
    For Each dr1 As DataRow In dr1s
        If lm.Name = dr1("评分人员列名") Then
            If dr1("代表人员") IsNot Nothing Then
                lm.Caption = dr1("代表人员")
            End If
        End If
    Next
Next

DataTables("绩效_考核_统分表").BuildHeader()
--  作者：有点甜
--  发布时间：2019/4/18 12:09:00
--  

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()

 

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