大家帮帮忙

fruit

我以前建了一个工资管理系统，现在企业工资改革，所有项目和计算方法全变了，为了今后能够不费劲改原有的工资系统结构，我想将工资系统的工资项目变成动态的，我建了两个表，一个是工资项目表，图如下
还有一个是工资明细表，图如下
我的问题是：1、如何在查询中实现，工资明细查询的行标题为工资项目表中项目名称；
                  2、工资项目表中的计算公式如何让它有效；
我记得以前学SQL的时候，利用SQL查询可以实现，但找了好多资料，都没有找到，朋友说要编代码，我记得SQL完全可以实现，哪位高手帮帮忙，不胜感激。

NeilChen

需要用到ＶＢＡ代码．先生成字符串，再将字符串通过程序重新写已有查询的ＳＱＬ代码

fruit

能否做个实例，参考一下
有点茫然

djt

Private sub qryGongzi()
dim str as string
dim rstSql as new adodb.recordset
dim rstGz as new adodb.recordset
dim cnn as new adodb.connection
set cnn=currentproject.connection
rst.open "select * from 工资项目表 where 是否打印=true order by 序号",cnn
with rstSql
str="select "
do while not .eof
if not isnull(!计算公式) then
str=str & !计算公式 & " as " & !项目名称
else
str=str & !项目代码 & " as " & !项目名称
endif
.movenext
if not (.eof or .bof) then
str=str & ","
else
exit do
endif
loop
.close
end with
rstGz.open str,cnn

fruit

感谢，对我非常有用

fruit

rst.open "select * from 工资项目表 where 是否打印=true order by 序号",cnn  （ 运行错误）
rstGz.open str,cnn  （这段代码也有问题）
另外我怎么不知道如何显示出我需要的效果，希望大哥做个小例子我看看，十分感激，我急着用，顺祝新年快乐！

djt

实例放在ftp里，有两种方法．分别用到窗体和查询

djt

名字为salary.rar

fruit

这位哥哥，我进去了，也找到了salary.rar ，但是它的大小为0KB，我根本无法打开，是不是上传文件出现问题了，麻烦你再看看
fruit003@126.com

djt

ok,改完了