以文本方式查看主题

-  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=69580)
--  作者：jiterp
--  发布时间：2015/6/7 17:44:00
--  求助：保存列设置信息功能（已解决）

需求如下图：


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150607173919.jpg
图片点击可在新窗口打开查看

 

以下是项目例子，请老师帮忙写个保存功能。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.zip

[此贴子已经被作者于2015/6/7 18:02:10编辑过]
--  作者：大红袍
--  发布时间：2015/6/7 17:54:00
--  
For Each bm As String In DataTables("设置列宽信息").GetValues("表名", "是否显示 = true")
    Dim fdr As DataRow = DataTables("保存设置").Find("表名 = \'" & bm & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("保存设置").AddNew
        fdr("表名") = bm
    End If
    Dim str As String = ""
    For Each dr As DataRow In DataTables("设置列宽信息").Select("表名 = \'" & bm & "\' and 是否显示 = true")
        str &= dr("列名") & "|" & dr("列宽") & "|"
    Next
    fdr("列宽设置") = str.TrimEnd("|")
Next
--  作者：jiterp
--  发布时间：2015/6/7 18:02:00
--  

非常感谢！