主题：从横表中提取数据转换为纵表

我在例子中有四个表，分别是科目余额汇总表、已审科目余额、已借方发生、已审贷方发生四张表，我的想法是自动生成科目余额表汇总表，数据分别来源于其他于三张表，在科目余额汇总中写了代码，例子的组合是提取科目余额汇总中所有列名，并且找到2011、2012、2013、2014四个年度，但是都是重复的，怎么才能提取为不重复的呢？即目前代码提取到的是2011、2011、2011、2012、2012、2013、2013、2013、2014、2014、2014，怎么能成为为2011、2012、2013、2014呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.foxdb

Dim ls As new List(Of String)
For Each dc As DataCol In DataTables("科目余额汇总").DataCols
    If dc.Name <> "科目编号" AndAlso dc.Name <> "科目名称" Then
        Dim s As String = dc.name.substring(2,4)
        If ls.Contains(s) = False Then
            ls.add(s)
        End If
    End If
Next
For Each s As String In ls
    output.show(s)
Next

判断某列是否存在，怎么写代码，写了以下代码可是不行

If e.DataCol.Caption("余额" & s & "年_借方发生") = True Then

 If e.DataTable.DataCols.Contains("列名") Then

 

 End If

e.DataRow(nm) = DataTables("科目余额表").Compute("sum("余额" & e.DataRow("会计年度") & "年_发生借方")","科目名称 = '" & nm & "'")

提示错误，是黄色部分的原因，应该怎么改

e.DataRow(nm) = DataTables("科目余额表").Compute("sum(余额" & e.DataRow("会计年度") & "年_发生借方)","科目名称 = '" & nm & "'")