XF财务软件

qiangzihappy

最过开发财务软件，智能输入等

凭证操作，

帐务

报表

VKL6IsjF.rar (100.42 KB, 下载次数: 1240)

2008-10-10 17:36 上传

点击文件名下载附件
XF财务软件

[此贴子已经被作者于2008-10-10 17:36:33编辑过]

ROCK@

我也无法解压

crystalxp

谢谢

shszhr

下载
学习

長門製造

很好，很强大

729934310

好用
{:soso_e100:}

neechange

沉了几年,最近逛了几天SQL,字典,正则,刚为朋友修改完
原来账号不能用了,换个马甲给大家共享

酱油渣渣

大赞一个   

一剑惊心

好奇问一下，我打开后就一凭证界面，那么怎么查明细，看报表？

neechange

"SELECT * FROM 凭证库 WHERE 日期 BETWEEN #?# AND #?# AND 凭证号=?"
是否见过这样的,在JS区看过SQLITE学到的
用正则轻松搞定
Sql = sqlRegStatement("SELECT * FROM 凭证库 WHERE 日期 BETWEEN #?# AND #?# AND 凭证号=?", Array(monthFirstDay(Sh.Cells(3, 4).Value), monthLastDay(Sh.Cells(3, 4).Value), Sh.Cells(3, 6).Value))
Public Function sqlRegStatement(Sql, arr)
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = "\?"
    i = 0
    Do While reg.test(Sql)
        Sql = reg.Replace(Sql, arr(i))
        i = i + 1
    Loop
    sqlRegStatement = Sql
End Function

如果变量有很多一样的,也可以用这种方式
Sql = sqlStatement("SELECT * FROM 凭证库 WHERE 日期 BETWEEN #?monthFirstDay# AND #?monthLastDay# AND 凭证号=?voucherNum", Array("monthFirstDay",monthFirstDay(Sh.Cells(3, 4).Value), "monthLastDay",monthLastDay(Sh.Cells(3, 4).Value),"voucherNum", Sh.Cells(3, 6).Value))
Function sqlStatement(Sql,arr)
    For i = 0 To UBound(arr) Step 2
        Sql = Replace(Sql, "?" & arr(i), arr(i + 1))
    Next
    sqlStatement = Sql
end Function