主题：[求助]数据引用

现有情况

现有表A（年度薪酬数据库）、表B（人事总表）、表C（年终人员薪酬汇总）

现在希望表C从表B中读取年终人员在岗的信息（包含所属公司、一级部门、二级部门、姓名、工号、岗位、职级），

同时从表A中（包含：所属公司、一级部门、二级部门、姓名、工号、岗位、职级、应发工资、月份、时间）读取各月应发工资信息

 

用数值表和水平表转换没解决这个问题，请楼主指点！！！

我现在通过BUTTON按钮可以实现从表B中读取人员信息至表C

按楼主说法做出来的应该是单表查询，所有数据还是竖向排列，我现在需要把竖向结果变为横向

按实际使用情况，表C在年终之前都是空表，在生成后人事基础信息与表B一致，没必要加入查询表范围，那就剩下表A和表C关联查询，同时还要把竖向变为横向

楼主，通过其他实例解决了上面的问题，增加了一个窗口来进行操作，通过窗口添加表格和BUTTON进行操作

button命令如下：

 

DataTables("基层人员年度绩效汇总审批表").DataRows.Clear()
Dim Lbl As WinForm.Label = e.Form.Controls("Label1")
Lbl.Text = "基层人员年度绩效汇总审批表"
Lbl.ForeColor=Color.red
 Dim f As New Filler
 f.SourceTable = DataTables("人事基本信息表") '指定数据来源
 f.SourceCols = "所属公司,一级部门,二级部门,工号,姓名,岗位,职级,分管领导" '指定数据来源列
 f.DataTable = DataTables("基层人员年度绩效汇总审批表") '指定数据接收表
 f.DataCols = "所属公司,一级部门,二级部门,工号,姓名,岗位,职级,分管领导" '指定数据接收列
 f.Fill() '填充数据
 For Each dc As DataCol In DataTables("基层人员年度绩效汇总审批表").DataCols
     If dc.Name.EndsWith("月") Then
         For Each dr As DataRow In DataTables("基层人员年度绩效汇总审批表").DataRows
      
             dr(dc.name) = DataTables("绩效数据库").Compute("Sum(绩效等级)","月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'")
       Next
     End If
 Next
Tables("绩效统计_Table1").DataSource = DataTables("基层人员年度绩效汇总审批表")
Vars("s100") = True
Vars("s1") = False

 

出现如下提示：

无效的聚合函数 Sum()和类型 String 的用法。

 

是sum函数错误了吗？绩效等级列设置是字符型

不是数学计算，就是引用

楼主，如果不涉及数学计算，只是单纯引用另一张表格中的数据呢，比如原表格中录入数据为A,B,C,D,E,F,G等，现在需要引用该表格中的字母

好吧，我试试看

谢谢楼主，解决了