根据提供的贴子里的提示，想编一段代码，获取当前表的当前打印设置，并保存到一个表中，以供需要时调用。首先建立一个“打印设置”表，其中列为前面贴子中提到的打印参数名，如title,subtitle等，第一、二列用于保存表名等。
Dim nma1 As new List(Of String)
For Each c As DataCol In DataTables("打印设置").datacols '获取“打印设置”表的列名,即打印参数
nma1.add(c.Name)
Next
Dim nma =nma1.ToArray() '转成数组
Dim dr As DataRow = DataTables("打印设置").AddNew '新增一行
Dim t As Table = CurrentTable '获取当前表
Dr("table")= t.name '第一列用于保存表名
For j As Integer = 2 To nma.Length - 1 '第一.二列用于保存表名，所以从3开始
dr(nma(j)) = t.PrintInfo.&nma(j)
Next
关键是不知 t.PrintInfo.&nma(j) 如何替换，也就是数组中的列名如何和 t.PrintInfo 组合
还有就是表中的列的类型 是否要设置
请指点
[此贴子已经被作者于2016/1/26 17:17:26编辑过]
加好友 
发短信
Post By：2016/1/26 11:40:00 [只看该作者]
