בניית Restrictions Rows דרך תוכנית VB:
בניתי Restriction אחד על טבלה אחד ואין בעיה (דוגמא מצורפת)
השאלה : איך לבצע לולאה על מספר טבלאות ועל מספר restrictions ?
[The SDK is called Overload (CrystalEnterprise Overload Plugin Library 11.5). Sample code is as follows:
Code:
Dim objSessMgr As CrystalEnterpriseLib.SessionMgr
Dim objEntSess As EnterpriseSession
Dim objInfoStore As CrystalInfoStoreLib.InfoStore
Dim objAppObjects As InfoObjects
Dim objAppObject As InfoObject
Dim objUniverse
Dim objOverloadPlugin
Dim objNewCollection
Dim objNewObject
Dim objNewOverload As CrystalOverloadPlugin.Overload
Dim strSQL As String
Dim strUniverseName As String
Dim intUniverseID As Integer
Dim intConnectionID As Integer
strUniverseName = "eFashion"
Set objSessMgr = New CrystalEnterpriseLib.SessionMgr
Set objEntSess = objSessMgr.Logon("UserName", "password", "Server", "Enterprise")
Set objInfoStore = objEntSess.Service("", "InfoStore")
strSQL = "Select TOP 1 SI_ID, SI_NAME, SI_DATACONNECTION from CI_APPOBJECTS where SI_KIND = 'Universe' and SI_NAME = '" & strUniverseName & "'"
Set objAppObjects = objInfoStore.Query(strSQL)
Set objUniverse = objAppObjects.Item(1).PluginInterface
