如何运用SQL语句查询现金或者银行凭证以及多借多贷凭证并写入另一工作表!

先行者

“凭证库”工作表B列为会计凭证的科目代码，利用科目代码的前4位进行判断，假使如果科目代码前面4位代码为“1001”与“1002”的科目分别是“现金”与“银行存款”，每笔凭证按照A列的凭证序号进行判断，凭证序号相同就是一笔凭证：
问题1、如何利用SQL语句查询哪一笔凭证中含有现金或者银行存款科目，并把查询结果放入“查询”的工作表中（注意找到相应凭证写入“查询”工作表时，必须把这整笔凭证一起写入，例如第一笔凭证，写入时要同时写入4行，而不是光写入会计科目代码为现金或者银行存款的那2行）；
    2、如果各笔凭证C列的分录序号中有3的（即每笔凭证记录中借方或者贷方有若干个金额，象第一笔凭证，而不像第二笔那样的凭证），如何利用SQL语句查询，并把相应记录写入“查询”工作表中（注意也必须把整笔凭证一起写入）；
请各位网友看一下，能否帮帮忙，谢谢！

先行者

很长时间没人回复，各位好心人帮帮忙了！

pc520

你的附件下载不了，出错了

先行者

谢谢3楼的网友，那就重新上传附件！请各位帮帮忙吧，谢谢了！

gjj136138139

楼主看看是不是这样的

[ 本帖最后由 gjj136138139 于 2010-2-4 09:39 编辑 ]

cm6705

我是用数组帮楼主写入一个，请测试！

先行者

1、小弟科目代码的前面有“'”的这个符号，原因是要把科目代码强制变成文本形式，但是您的程序未考虑到这个情况，所以写入查询工作表的B列出现格式不对；
2、小弟上面第二个问题还是请您看一下，小弟按照您的select语句修改了一下（如下面），但是程序跳到“Rst.Open Sql, Cn, 1, 3”这一句时出错，请您看一下错在哪里，同时请您解释一下代码，谢谢！

'Sql = "select * from [凭证库$] where 凭证号码 in(select 凭证号码 from [凭证库$] where 分录序号 = '3' )"


Rst.Open Sql, Cn, 1, 3
'Stop

ah2005

为什么一定要用SQL呢，除非你有上万行

一般的字典或者VBA就可以了啊。

ah2005

6楼的代码就可以解决了

gjj136138139

=3试试，数字不用加'，只有文本才加'