标题: 大家帮帮忙 [打印本页] 作者: fruit 时间: 2004-1-8 00:20 标题: 大家帮帮忙 我以前建了一个工资管理系统，现在企业工资改革，所有项目和计算方法全变了，为了今后能够不费劲改原有的工资系统结构，我想将工资系统的工资项目变成动态的，我建了两个表，一个是工资项目表，图如下[attach]3051[/attach]
还有一个是工资明细表，图如下[attach]3053[/attach]
我的问题是：1、如何在查询中实现，工资明细查询的行标题为工资项目表中项目名称；
2、工资项目表中的计算公式如何让它有效；
我记得以前学SQL的时候，利用SQL查询可以实现，但找了好多资料，都没有找到，朋友说要编代码，我记得SQL完全可以实现，哪位高手帮帮忙，不胜感激。作者: NeilChen 时间: 2004-1-8 00:50
需要用到ＶＢＡ代码．先生成字符串，再将字符串通过程序重新写已有查询的ＳＱＬ代码作者: fruit 时间: 2004-1-8 01:11
能否做个实例，参考一下
有点茫然作者: djt 时间: 2004-1-11 20:06
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 时间: 2004-1-12 05:21
感谢，对我非常有用 作者: fruit 时间: 2004-1-22 00:35
rst.open "select * from 工资项目表 where 是否打印=true order by 序号",cnn （ 运行错误）
rstGz.open str,cnn （这段代码也有问题）
另外我怎么不知道如何显示出我需要的效果，希望大哥做个小例子我看看，十分感激，我急着用，顺祝新年快乐！ 作者: djt 时间: 2004-1-25 17:44
实例放在ftp里，有两种方法．分别用到窗体和查询作者: djt 时间: 2004-1-25 17:44
名字为salary.rar 作者: fruit 时间: 2004-1-25 19:02
这位哥哥，我进去了，也找到了salary.rar ，但是它的大小为0KB，我根本无法打开，是不是上传文件出现问题了，麻烦你再看看
fruit003@126.com作者: djt 时间: 2004-1-25 19:33
ok,改完了作者: fruit 时间: 2004-1-26 04:44
太感谢您了！我所有的工作都在这个地方卡了壳，你帮我解决了难题，我真的非常感激你，我对ADO不熟悉，还要继续努力跟你们学习，谢谢！！！