SetXCellReflashParam 过程
（创建时间：2012年08月25日 01:31:00）
Jangogo ：
VB
- ''设置传递给报表设计器的参数回调的接口，当报表设计器保存的时候，会回调ptrObjCallFrom 这个指针指向的对象的XCellReflashCall这个过程
- Public Sub SetXCellReflashParam(objParam As Object, ByVal ptrObjCallFrom As Long, Optional strReflashFlag As String)
- 'strReflashFlag 这个参数你自己定的一个字符串，可以没有，如果你有多种刷新情况，利用这个参数可以区分开来
在调用报表设计器的时候，您是这样调用的
Set colRpt = New Collection
colRpt.Add strRptTemplate
Call MyApp.CreateObject("GridDesigner", colRpt)
现在要增加一句并注意一个问题：
Set colRpt = New Collection
'注意这里最好要给你的参数加一个 “键"
colRpt.Add strRptTemplate,"xml"
''增加下面一句,这一句必须放到 后面，不要先加这一句再colRpt.Add strRptTemplate,"xml"
MyApp.Extender.SetXCellReflashParam colRpt, objPtr(me)
Call MyApp.CreateObject("GridDesigner", colRpt)
然后 在你的调用窗口里面增加并且实现一个过程
Public Sub XCellReflashCall(optional objParam as object)
''这里你可以取得新的模板的XML
dim sXML as String
sXML=MyApp.GetXValue(objParam, "TemplateXML")
''还可以取得你自己设置过来的标识字符串
dim sFlag as String
sFlag=MyApp.GetXValue(objParam, "RefalshFlag")
''剩下要怎么刷新就您自己做了
End Sub
文档中心