delphi programming forums mysql charset mget recursive synonimos
free ventrilo servers hosting cs javascript delay python find in list
Back Forum New

Rank: 1
1# Jump to »
WateverPost at 2010-5-21 10:23 | Show This Author's Posts Only
abstract:

                        End If
                    Next
                    If bTrouve = False Then
                        AjouterRue(CboBoxObj, cboVille.Text)
                    End If
                    AjouterAdresse(CboBoxObj, cboVille.Text, FindReleve(CodeProjet.Text))
                    bTrouve = False
                Next
I understand it, how what the guy really wanted to do but I am some problems where the For Each drDataRowRue
that loop cause me some problems and I am not sure I understand it 100%.


Hi,
yeah it's me again
I have a bif full module where they use Datarow and Dataset, and there is no Comments at all in the owl functions. and in some place it's get really confuse.
My main problem is that I have kinda some difficult to see how do those works in .net ? It's have changed a bit and it's not clear in my mind how it's work. I have a book on VB.net from Kris Jamsa but they do not talk about those things.
So if anyone have some explication or some tutorials it's might help me ! thank you !
here is an exemple of the code I have
Code:
  1. drDataRowVille = FindVille(cboVille.Text, frmItems.DataSetVille1)
  2.             If Not (drDataRowVille Is Nothing) Then
  3.                 For Each CboBoxObj In cboRue.Items
  4.                     bTrouve = False
  5.                     For Each drDataRowRue In frmItems.DataSetRue1.Tables("Rue").Rows
  6.                         If CStr(drDataRowRue.Item("rue")).ToUpper = CboBoxObj.ToUpper And _
  7.                         drDataRowRue.Item("noVille") = drDataRowVille.Item("noVille") Then
  8.                             bTrouve = True
  9.                             Exit For
  10.                         End If
  11.                     Next
  12.                     If bTrouve = False Then
  13.                         AjouterRue(CboBoxObj, cboVille.Text)
  14.                     End If
  15.                     AjouterAdresse(CboBoxObj, cboVille.Text, FindReleve(CodeProjet.Text))
  16.                     bTrouve = False
  17.                 Next
Copy Code
I understand it, how what the guy really wanted to do but I am some problems where the For Each drDataRowRue
that loop cause me some problems and I am not sure I understand it 100%.

TOP

Rank: 1
2#
WateverPost at 2010-5-21 10:23 | Show This Author's Posts Only
and another thing
is it possible to add a sort of Query in a datarow or dataset.
Cause in the program the datarow read each line, one by one to compare them and he also compare the Ville. I would like to add a restriction where the datarow would only have the Rue where the No Ville is ok.
like select * from Rue where no_ville = X;

TOP

Rank: 1
3#
WateverPost at 2010-5-21 10:23 | Show This Author's Posts Only
forget about it ! I think I understand all that more now.
I am still bugged cause of poor ugly script but I think I will survive.
is there a way I can delete completely the topic ? or I need to let it there for other people ?



                        End If
                    Next
                    If bTrouve = False Then
                        AjouterRue(CboBoxObj, cboVille.Text)
                    End If
                    AjouterAdresse(CboBoxObj, cboVille.Text, FindReleve(CodeProjet.Text))
                    bTrouve = False
                Next
I understand it, how what the guy really wanted to do but I am some problems where the For Each drDataRowRue
that loop cause me some problems and I am not sure I understand it 100%.

TOP

Back Forum