datagridview vullen met selecteerde tekst

[jan68]

We zijn iets verder gekomen in de applicatie die we willen over zetten van VB-6 naar vb2010 maar struikelen weer over een probleem
willen een kleine Database inladen in een datagridview en dan direct text in Vet afdrukken in de column1 als de waarde in column 2 boolean waard: True is

maar we hebben nog steeds het probleem dat de booleanse waarde niet erkend wordt

zo zou het er evt.uit moeten gaan zien
waarna we de column geheel "hide" maken zodat deze uit het zicht is

nr : profielnaam : res
1 E180.coo : 1
2 E195.coo : 0

[B][/B]
   Public Class Form1
    Dim con As New OleDbConnection
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "provider=microsoft.ACE.OleDB.12.0;data source = C:\Users\jan\documents\visual studio 2010\Projects\WindowsApplication2\WindowsApplication2\Profiel 2010.accdb"
        con.Open()
        Datagridviewshow()
    End Sub

    Private Sub Datagridviewshow()
        Dim Ds As New DataSet
        Dim Dt As New System.Data.DataSet
        Dim Da As New OleDbDataAdapter
        Da = New OleDbDataAdapter("select profielnaam,res from profielen order by Nr", con)
        Da.Fill(Dt)
        DataGridView1.DataSource = Dt.Tables(0)

        For i As Integer = 0 To Dt.Tables(0).Rows.Count - 1 Step 1

           'het gaat om deze regel
            
            If Dt.Tables(0).Rows.Item(i).Item("Res").ToString.Contains(TextBox4.Text) Then
            datagrid 

            'wat ik ook probeer      
            End If
        Next


        DataGridView1.DataSource = Dt.Tables(0).DefaultView
        con.Close()
    End Sub

Soms krijg ik de fout melding soms in het geheel niet
wie kan mij helpen?

 

[JoZ1]

Welke foutmelding?

Moet het niet zoiets zijn:

[CPP]If Dt.Tables(0).Rows.Item(i).Item("Res").Value.ToString.Contains("...")[/CPP]

 

[jan68]

bedank voor het mee denken J0z1 maar helaas dit is het nog niet
Ik weet het moet ongeveer zoiets zijn.
GR jan

 

[JoZ1]

Wat is de foutmelding die je krijgt?

 

[jan68]

Hallo J0Z1
Nu krijg ik geen foutmelding tijdens het debuggen
nu stop het debuggen zo daar we bij deze regel komen
" If Dt.Tables(0).Rows.Item(i).Item("Res").ToString.Contains(TextBox4.Text) Then " of de regel verandert in
" If Dt.Tables(0).Rows.Item(i).Item("Res").Value.Contains("...") Then "
nee een fout melding kreeg toen ik de regel in iets anders veranderden had(weet niet precies wat)
gr jan

 

[JoZ1]

Het had dan ook eigenlijk moeten zijn:
[CPP].Value.ToString.Contains("...")[/CPP]
Nu ik het nog eens met Visual Studio nakijk.

Kun je even een breakpoint daar neerzetten? Dan kun je waarden etc. controleren om te kijken of de code uitgevoerd wordt.

 

[jan68]

hallo J0T1
Helaas ook nu niet
als ik de regel inkort of opnieuw schrijf tot

    "if Dt.Tables(0).Rows.Item(i) then

Krijg ik een error meldig
"Value of type 'System.Data.DataRow' cannot be converted to 'boolean'
Dus misschien zitten we geheel fout in deze
we mogen niet vergeten dat we een boolean waarde (ja/nee of true/falseof 1/0) hier moeten verwachten.

 

[jan68]

èèn oplossing gevonden door deze regel op te nemen

 Da = New System.Data.OleDb.OleDbDataAdapter("Select profielnaam from profielen where res = True order by Nr", con)

nu de rest van de applicatie

 

[JoZ1]

OK, dus het werkt?