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

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

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

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

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

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

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

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