高手请进.....(关于FORMULA ONE的应用)，在线等候....

[trybestying]

各位高手请帮忙，如何在VB中用FORMULA ONE？
情况是这样的，我们配合公司的电力MIS做WEB报表，公司的电力MIS中的一些报表是利用FORMULA ONE组件，把报表中要显示的数据存到ORACLE的库表中，存数据的表中的每条记录有要显示数据所在报表的第几行，第几列，数据值，及对应的SHEET的名称，我想在VB中用FORMULA ONE的函数，通过读ORACLE中存数据的表的记录，来达到在TAB表中相应位置显示数据的目的。
哪位有这方面的经验给小妹介绍一下，，，问题解决者给高分，谢谢了。。。
告急，在线等候。。。

[wingchi]

up

[zjcxc]

贴人家的,不知道对你有没有帮助.

Dim ss As New CRPT_lgty
Dim sSQL As String
Dim s As String
sSQL = "Select * from sql离岗退养"
s = "{sql离岗退养.年} = " & nSysYear & " AND {sql离岗退养.月}= " & nSysMonth
MsgBox sSQL
Set rsRPT = cnData.Execute(sSQL)
' rsRPT.Open sSQL, cnData, adOpenKeyset, adLockBatchOptimistic
' ss.DiscardSavedData = True
ss.Database.SetDataSource rsRPT
ss.RecordSelectionFormula = s

CRViewer.ReportSource = ss
CRViewer.ViewReport


就是然来SQL语句的Where段，一定要将字段用{}包起来！