Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态批量设置列标题


  共有2566人关注过本帖树形打印复制链接

主题：动态批量设置列标题
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		动态批量设置列标题  发帖心情 Post By：2018/8/5 21:32:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：表字段.png
图片点击可在新窗口打开查看
老师，请问下如实根据表字段的的数据给表中字段增加列标题
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/5 21:33:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：表.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/5 21:35:00 [只看该作者]

我今天想了半天，脑海里还是空白，不知道以什么逻辑或思路来写

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/5 22:36:00 [只看该作者]

生成表格后，循环每一列，根据列名在表格find查找到对应的标题，然后设置

 

http://www.foxtable.com/webhelp/scr/1275.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/5 22:58:00 [只看该作者]

For Each dt As DataTable In DataTables    
    For Each dc As DataCol In dt.DataCols   
        Dim nm As String = dt.name     
        Dim lsts As List(of String) = DataTables("表字段").GetValues("字段标题","表名 = nm")        
        For i As Integer = 0 To dt.datacols.Count - 1
            dt.DataCols(i).Caption = lsts(i)
        Next
    Next
Next
为什么上述代码存无法正常使用
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/5 23:04:00 [只看该作者]


此主题相关图片如下：表标题.png
按此在新窗口浏览图片

编写的代码
For Each dt As DataTable In DataTables    
    For Each dc As DataCol In dt.DataCols   
        Dim nm As String = dt.name     
        Dim lsts As List(of String) = DataTables("表字段").GetValues("字段标题","表名 = nm")        
        For i As Integer = 0 To dt.datacols.Count - 1
            dt.DataCols(i).Caption = lsts(i)
        Next
    Next
Next
为什么上述代码存无法正常使用
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/6 0:14:00 [只看该作者]

For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        Dim nm As String = dt.name
        Dim dr = DataTables("表字段").find("表名 = '" & nm & "'")
        If dr IsNot Nothing Then
            dc.Caption = dr("字段标题")
        End If
    Next
    dt.BuildHeader
Next

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/6 0:38:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：表标题1.png
图片点击可在新窗口打开查看

上述代码显示结果如上图，该 怎么 修改
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/6 0:48:00 [只看该作者]

代码：
For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        Dim nm As String = dt.name
        For Each dr As DataRow In DataTables("表字段").Select("表名 = '" & nm & "'")
            If dr IsNot Nothing Then
                dc.Caption = dr("字段标题")
            End If
        Next
    Next
    dt.BuildHeader
Next
结果如下：

图片点击可在新窗口打开查看此主题相关图片如下：表标题2.png
图片点击可在新窗口打开查看

要想实现各字段显示不同的标题，应怎样修改代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/6 9:01:00 [只看该作者]

For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        Dim nm As String = dt.name
        For Each dr As DataRow In DataTables("表字段").Select("表名 = '" & nm & "' and 字段名称 = '" & dc.name & "'")
            If dr IsNot Nothing Then
                dc.Caption = dr("字段标题")
            End If
        Next
    Next
    dt.BuildHeader
Next
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询