I have been designing database related programs using VB6, but I'm now designing an engineering program that will take input from array of rows and columns in MSFLEXGRID I was successfully coded the msflexgrid to take input that is saved to a file and I have done some calculations and result saved in another column. MY PROBLEM NOW LIES IN COMPARING THE VALUE OF IST TWO COLUMNS VALUE. I.E IF THE VALUE OF COLUMN 1=VALUE OF COLUMN 2. A PARTICULAR CONDITION MUST BE MET. E.G
My required result is shown below
COL1,   COL2....................COL8 , COL9
1            2                           0.5     0
2            5 *                       -0.8   -0.3
5            6                          -0.5     0
6            1                           0.9     0
2            3                           0.5     0
3            4                           0.4     0
4            5                           0.5     0
5            2 *                        0.3    0.8
Any row where there is no change of number like 2 & 5, 5 & 2
the result should be zero while the value of the rows where there is change of same number there will be change of Col8 value and sign as shown above.
Please help me to get this result
This is the code I used but i'm not getting the required result.

For i=1 to HowBig
For j=1 to HowBig
  If NodeFrom(i)=NodeTo(j) And NodeTo(i)=NodeFrom(j) Then
PipeDeltaQ(j) = PipeDeltaQ(j)-LooDeltaQ(WLoop(I))End If
grid.TextMatrix(I,9) = PipeDeltaQ(j)
Nextj
Next i


Note all variables are declared and PipeDeltaQ(i) has been calculated for in Col8.
I know you will help me it has been delaying me for weeks now. If somebody need the whole code I will send it to your email address.
Thanks in serious Anticipation

I want to please beg if someone can come to my aid this is for my final year project. I will represent this problem again and if someone needs my full code I can sent to the person. I hope i will not be dissapointed for joining andeaVB. This is it again.
I have been designing database related programs using VB6, but I'm now designing an engineering program that will take input from array of rows and columns in MSFLEXGRID I was successfully coded the msflexgrid to take input that is saved to a file and I have done some calculations and result saved in another column. MY PROBLEM NOW LIES IN COMPARING THE VALUE OF IST TWO COLUMNS VALUE. I.E IF THE VALUE OF COLUMN 1=VALUE OF COLUMN 2. A PARTICULAR CONDITION MUST BE MET. E.G
My required result is shown below
NodeFrom.. NodeTo..........................COL8...COL9
1..................  2 .............................  0.5.......0
2..................  5 * ...........................-0.8......-0.3
5..................  6 ..............................-0.5.......0
6..................  1 ...............................0.9.......0
2..................  3 ...............................0.5.......0
3..................  4 ...............................0.4.......0
4..................  5 ...............................0.5.......0
5..................  2 * ............................0.3.......0.8
Any row where there is no change of number like 2 & 5, 5 & 2
the result should be zero while the value of the rows where there is change of same number there will be change of Col8 value with sign as shown above.
Please help me to get this result
This is the code I used but i'm not getting the required result.

For i=1 to HowBig
For j=1 to HowBig
  If NodeFrom(i)=NodeTo(j) And NodeTo(i)=NodeFrom(j) Then
PipeDeltaQ(j) = PipeDeltaQ(j)-LooDeltaQ(WLoop(I))End If
grid.TextMatrix(I,9) = PipeDeltaQ(j)
Nextj
Next i


Note all variables are declared and PipeDeltaQ(i) has been calculated for in Col8.
I know you will help me it has been delaying me for weeks now. If somebody need the whole code I will send it to your email address.
Thanks in serious Anticipation

Hello. I don't want you feel abandoned at your own, but sincerely I have not clear what your goal is, and I felt the same when you posted the first time.

It's not clear what criteria you use to make your computes, and what sequence you are intended to follow for grid values scan. And is not clear if you are intended to set the condition (I guess a boolean flag) once, or once in every row.

I'm aware is not much, but you should try to explain us a little clearer and wider.
We're waiting around here.

____________________________
Real Programmer can count up to 1024 on his fingers

Thanks,
I am using msflexgrid of about 10 columns in the project, I designed it to input  values depeding on the number of pipes available in the analysis which represent each row. I have got the calculation to a stage but to get the final result I need to obey a condition. this condition is if column 1 called (nodeFrom) value is equal to column2 called (NodeTo)value AND column2 called (NodeTo)value is equal column 1 called (nodeFrom) value Then
The last result in column 8 should equal to zero(0) in column 9 except for the rows where the value of column1 and column2 interchanges as earlier shown in my explanation. e.g. column1 value =1 and column2=2 in row1 but in row4 the value of column1 =2 and column2=1
Therefore, This condition will now work on the result of column 8. The value of row1 in column8 will now be the value of row4 with opposite sign(- or +) while the value of row4 in column8 will be that of row1 also with opposite in sign(- or +)
This result of this will now be displayed in column9 as shown
in my earlier explanation.


I will attach my codes if there is any correction please help me out.

Function InterchangeColumnFigures(idx As Integer) As Boolean Dim Sob As Integer Dim i As Integer For Sob = 1 To HowBig If Sob <> idx And NodeFrom(idx) = NodeTo(Sob) And NodeFrom(Sob) = NodeTo(idx) Then InterchangeColumnFigures = True     End If     Next Sob     InterchangeColumnFigures = False      End Function Public Sub CalculateFlowChange(HowBig As Integer, NumLoops As Integer) Dim i As Integer, j As Integer ReDim HLoopTotal(1 To NumLoops) As Single ReDim HQLoopTotal(1 To NumLoops) As Single ReDim PipeDeltaQ(1 To HowBig) As Double     For i = 1 To NumLoops         HLoopTotal(i) = 0         HQLoopTotal(i) = 0     Next i          For i = 1 To HowBig         HLoopTotal(Grid.TextMatrix(i, 7)) = HLoopTotal(Grid.TextMatrix(i, 7)) + HeadLoss(i)         HQLoopTotal(Grid.TextMatrix(i, 7)) = HQLoopTotal(Grid.TextMatrix(i, 7)) + HQLoss(i)     Next i     For i = 1 To NumLoops         LoopDeltaQ(i) = -HLoopTotal(i) / (2 * HQLoopTotal(i))              Next i     For i = 1 To HowBig         PipeDeltaQ(i) = LoopDeltaQ(Grid.TextMatrix(i, 7))         Grid.TextMatrix(i, 9) = PipeDeltaQ(i)         Next i            For i = 1 To HowBig         For j = 1 To HowBig       If InterchangeColumnFigures(i) Then          PipeDeltaQ(j) = Grid.TextMatrix(i, 9) - LoopDeltaQ(Grid.TextMatrix(i, 7))                End If        Grid.TextMatrix(i, 10) = PipeDeltaQ(j)       Next j       Next i        End Sub

But this code is not giving the required valu in column9 but is giving the one value in all the rows

Hello. Not yet time to look at your code.

quote:

---

OLUPHEMMY wrote:this condition is if column 1 called (nodeFrom) value is equal to column2 called (NodeTo)value AND column2 called (NodeTo)value is equal column 1 called (nodeFrom) value Then

---

Thanks,
I am comparing the values in column1 and column2 only with the condition stated earlier but the result of the comparison will be written to column9.
The order of comparison is from the first row to the last depending on the no of pipes in the analysis denoted in the program as (HowBig), this will be inputed by the user.
Don't be confused by the pipe thing, the program is to analyse pipe network.
The reason for choosing column9 is bcos other columns from 0-8 is filled with input & result of the previous analysis. Note I'm using msflexgrid as the table for the program with 10 columns and 50 rows.
Also be aware that am using array for the analysis.
Thanks in anticipation.

quote:

---

OLUPHEMMY wrote:I am comparing the values in column1 and column2 only with the condition stated earlier

---

quote:

---

OLUPHEMMY wrote:The order of comparison is from the first row to the last

---

quote:

---

depending on the no of pipes in the analysis denoted in the program

---

quote:

---

columns from 0-8 is filled with input & result of the previous analysis.

---

OK,
I will take my time to explain it one after the other,

quote:

---

Do you mean: " ... If condition = True Then Compare_Columns Else DoNothing..."?
Or do you mean "... If column1 = condition Or/And column2 = condition Then..."

---

quote:

---

depending on the no of pipes in the analysis denoted in the program

---

quote:

---

"... Check The Whole Two Cols As Many Times As v Number of pipe(rows) indicated by the user...."?

---

No, sorry, it is not clear yet. In fact, you repeated what you wrote in your first post, but the unclear points are still there.

quote:

---

OLUPHEMMY wrote:What I mean is that in the array from row1 to the last if any cell in column1=any cell in column2 AND on the same row the cell value of column2 = cell value of column1

---

quote:

---

col1,..........col2
1.................2
2.................5*
5.................6
6.................1
2.................3
3.................4
4.................5
5.................2*

---

Ok,
I'm trying my best to explain to the best of my ability, as you said all i'm saying is that

quote:

---

In columns 1 & 2  i'm only searching for couples with the same digits as in the case of 2 & 5 and 5 & 2. This can be any digit  not restricted only to 2&5

---

Okay, let's try to get our hands dirty:

Private Sub CompareCouples()     Dim r As Long. r1 As Long     Dim num1 As Double, num2 As Double     ' assumes the grid has one fixed row     With flxMyFlex         For r = 1 To .Rows -1             num1 = .TextMatrix(r, 1)             num2 = .TextMatrix(r, 2)             If r = .Rows - 1 Then Exit For             For r1 = r + 1 To .Rows -1                 If (.TextMatrix(r1, 1) = num1 _                     And TextMatrix(r1, 2) = num2) Then                     ' we've found again the same couple, then we fill the cell                     ' in the eighth column                     .TextMatrix(r, 8) = put_the_calculated_value_here                     ' remove the next Exit For instruction if you want to manage more                     ' than two occurrences of the couple of numbers in the grid                     Exit For                 ElseIf (.TextMatrix(r1, 1) = num2 _                     And TextMatrix(r1, 2) = num1) Then                     ' we've found the same couple, in reverse order, so we fill the cell                     ' in the eighth column                     .TextMatrix(r, 8) = put_the_calculated_value_here                     ' remove the next Exit For instruction if you want to manage more                     ' than two occurrences of the couple of numbers in the grid                     Exit For                 Else            ' the two numbers are not the same                     ' the cell in the eighth column is filled with a zero                     .TextMatrix(r, 8) = 0                 End If             Next r1         Next r     End With End Sub

Try this approach. I didn't test it, as I don't have VB on this machine, but it should work. You can modify it by yourself in order to write the calculated values in column 8. You can also add the code to write in the column 9 cells as well.

Hope it helps

____________________________
Real Programmer can count up to 1024 on his fingers

Thanks for your effort
This statement generated compiler error
With flxMyFlex
If I remove it will affect the result or what do I do to make it run.
I tried to remove it but the answer I got was not the required.
in case there is a couple such as
            col1.......col2........col8...............Col9
row1       3..........4...........0.1...............0.2
row2       1..........2...........0.6................0
row3       5..........7...........0.3..............-0.4
row4         4..........3...........-0.2.............-0.1
row5       7..........5...........0.4...............-0.3
row6       7..........4...........0.5................0
row1 value in col8 will exchange with row4 value in col8 and the same thing will happen to row3 and row5 as they will exchange thier  values in col8. The exchange value will then be wriitten in Col9 while in a case where there is no couple the col9 value will be 0. As I have told you b4 I have gotten it to the result in Col8 my real probs is comparing col1 to col2 using couple of nums that interchanges and then the result of their row with the other couple.
As you can observe from my illustration above the rows underline are the one thier col9 interchanges while the rows bold also interchanges thier col9 value with changes in sign in both cases.
I understand your code but is not doing the comparison

Ok, let's get one step at a time.

quote:

---

OLUPHEMMY wrote:This statement generated compiler error
With flxMyFlex

---

quote:

---

OLUPHEMMY wrote:in case there is a couple such as
            col1.......col2........col8...............Col9
row1       3..........4...........0.1...............0.2
row2       1..........2...........0.6................0
row3       5..........7...........0.3..............-0.4
row4         4..........3...........-0.2.............-0.1
row5       7..........5...........0.4...............-0.3
row6       7..........4...........0.5................0
row1 value in col8 will exchange with row4 value in col8 and the same thing will happen to row3 and row5 as they will exchange thier  values in col8. The exchange value will then be wriitten in Col9 while in a case where there is no couple the col9 value will be 0.

---

I am enjoying your code. Pls, I only need for switch couple in col1 and col2 only. Then if it is true that there is a switch or more  like (3&4) and (4&3) a couple, (5&7 )and (7&5) another switch couple, the corresponding value of d row (3&4) in col8 will interchange with the corresponding value of d row (4&3) in col8 with a change in sign but this will be displayed in col9; while all other rows without switch couple their value in col9 will be zero(0).

Note: I told you that I have  resolved col8 already all I want is how to interchange rows values col8  in line with rows that have switch couple(s)  and displayed this interchange in col9 while other rows without switch couple are 0.
Take your time and look at my last illustration the reason why i put col8 is for you to know that the condition of switch couple is will be acting on value already in col8 to give another result to be displayed in col9.

quote:

---

Dont worry about col8 the values are ready help me interchange them so as to display it in col9 following switch couple condition of col1 & col2.

---

I am enjoying your code. Pls, I only need for switch couple in col1 and col2 only. Then if it is true that there is a switch or more  like (3&4) and (4&3) a couple, (5&7 )and (7&5) another switch couple, the corresponding value of d row (3&4) in col8 will interchange with the corresponding value of d row (4&3) in col8 with a change in sign but this will be displayed in col9; while all other rows without switch couple their value in col9 will be zero(0).

Note: I told you that I have  resolved col8 already all I want is how to interchange rows values col8  in line with rows that have switch couple(s)  and displayed this interchange in col9 while other rows without switch couple are 0.
Take your time and look at my last illustration the reason why i put col8 is for you to know that the condition of switch couple is will be acting on value already in col8 to give another result to be displayed in col9.

quote:

---

Dont worry about col8 the values are ready help me interchange them so as to display it in col9 following switch couple condition of col1 & col2.

---