[求助]选择不同的行设置不同的列标题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]选择不同的行设置不同的列标题

共有1708人关注过本帖树形打印复制链接主题：[求助]选择不同的行设置不同的列标题

紫色幽魂

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：682 积分：5382 威望：0 精华：0 注册：2015/1/23 0:31:00

[求助]选择不同的行设置不同的列标题 发帖心情

Post By：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

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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()

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

下一主题 >> << 上一主题

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