- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 罗列表列的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52943)
-- 发布时间：2014/6/26 0:56:00
-- 罗列表列的问题？
罗列表列的问题？
设计里有一个“生肖”表，一个“罗列生肖”表，有一个模式窗口“罗列生肖”,我想通过这个窗口中的“导入生肖表列”控件，将“生肖”表的列名、相应列宽、隐藏情况（案列中没有隐藏列，因为可能会用到隐藏列，设显示为true,不显示为false）全部导入“罗列生肖”表中且每个列名一行描述，如图：
求大师指点代码如何写或相应知识点？跪求？
此主题相关图片如下：qq截图20140626004402.jpg
此主题相关图片如下：qq截图20140626004619.jpg
此主题相关图片如下：qq截图20140626004402.jpg此主题相关图片如下：qq截图20140626004619.jpg| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:罗列表列.rar |
-- 发布时间：2014/6/26 0:56:00
--
沙发！
-- 发布时间：2014/6/26 7:59:00
--
试试这个：
DataTables("罗列生肖").DataRows.Clear
For Each dc As DataCol In DataTables("生肖").DataCols
Dim dr As DataRow = DataTables("罗列生肖").AddNew
dr("列名") = dc.Name
dr("显示宽度") = Tables("生肖").Cols(dc.Name).Width
dr("显示") = Tables("生肖").Cols(dc.Name).Visible
Next
-- 发布时间：2014/6/26 9:29:00
--
谢谢老师指点，我还想有序号及列标题要添加什么代码
-- 发布时间：2014/6/26 9:34:00
--
标题.Caption
序号.Index
Tables("生肖").Cols(dc.Name).Caption
Tables("生肖").Cols(dc.Name).Index
-- 发布时间：2014/6/26 10:17:00
--
序号是从0开始的，怎么改？
-- 发布时间：2014/6/26 10:30:00
--
求老师指点？
-- 发布时间：2014/6/26 10:34:00
--
以下是引用看雪的人在2014-6-26 10:17:00的发言：
序号是从0开始的，怎么改？
DataTables("罗列生肖").DataRows.Clear序号是从0开始的，怎么改？
Dim i As Integer = 0
For Each dc As DataCol In DataTables("生肖").DataCols
Dim dr As DataRow = DataTables("罗列生肖").AddNew
dr("列名") = dc.Name
dr("显示宽度") = Tables("生肖").Cols(dc.Name).Width
dr("显示") = Tables("生肖").Cols(dc.Name).Visible
dr("序号") = i
i += 1
Next
-- 发布时间：2014/6/26 10:37:00
--
可以了，谢谢
-- 发布时间：2014/6/26 10:39:00
--
我直接这样改的，dr("序号") = Tables("生肖").Cols(dc.Name).Index +1
不知道有没有不对的地方，测试是可以的