on 05-21-2004 12:49 PM
Hi to all:
I Got an error when i execute: oDBDataSource1.Query oConditions
I can't instert two conditions??, with only one work's perfectly but when I insert a second group of condtions, I got a problem.
Here is the code:
Public Sub SetMatrix1(lproy As Integer)
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
Dim i As Long
Dim oMatrix As SAPbouiCOM.Matrix
Set oConditions = New SAPbouiCOM.Conditions
Set oMatrix = oForm.Items.Item("Matrix1").Specific
Set oCondition = oConditions.Add
oCondition.BracketOpenNum = 1
oCondition.Alias = "U_usuario"
oCondition.Operation = co_EQUAL
oCondition.CondVal = lusuario
oCondition.BracketCloseNum = 1
oCondition.Relationship = cr_AND
oCondition.BracketOpenNum = 2
oCondition.Alias = "U_proyecto"
oCondition.Operation = co_EQUAL
oCondition.CondVal = lproy
oCondition.BracketCloseNum = 2
oDBDataSource.Query oConditions
oMatrix.Clear
Dim oBtn As SAPbouiCOM.Button
Dim oItem As SAPbouiCOM.Item
For i = 0 To oDBDataSource.Size - 1
oDBDataSource.Offset = i
' oUserDataSource1.Value = i + 1
oMatrix.AddRow
Next i
oMatrix.AutoResizeColumns
End Sub
I haven't tried the code so I can't be sure, but my guess would be you need to add another condition to your Queries conditions collection.
Between the lines
<i>oCondition.Relationship = cr_AND
oCondition.BracketOpenNum = 2</i>
Try adding:
<i>Set oCondition = oConditions.Add</i>
So your code should be:
<i>Public Sub SetMatrix1(lproy As Integer)
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
Dim i As Long
Dim oMatrix As SAPbouiCOM.Matrix
Set oConditions = New SAPbouiCOM.Conditions
Set oMatrix = oForm.Items.Item("Matrix1").Specific
Set oCondition = oConditions.Add
oCondition.BracketOpenNum = 1
oCondition.Alias = "U_usuario"
oCondition.Operation = co_EQUAL
oCondition.CondVal = lusuario
oCondition.BracketCloseNum = 1
oCondition.Relationship = cr_AND
Set oCondition = oConditions.Add
oCondition.BracketOpenNum = 2
oCondition.Alias = "U_proyecto"
oCondition.Operation = co_EQUAL
oCondition.CondVal = lproy
oCondition.BracketCloseNum = 2
oDBDataSource.Query oConditions
oMatrix.Clear
Dim oBtn As SAPbouiCOM.Button
Dim oItem As SAPbouiCOM.Item
For i = 0 To oDBDataSource.Size - 1
oDBDataSource.Offset = i
' oUserDataSource1.Value = i + 1
oMatrix.AddRow
Next i
oMatrix.AutoResizeColumns
End Sub</i>
Hope this helps
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
67 | |
14 | |
8 | |
6 | |
5 | |
5 | |
5 | |
4 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.