[VB] datagridview

Kot prvo ti svetujem, da se posloviš od dataseta. To je povozil čas.

Začni uporabljat Linq.

Ni tudi ravno fajn programsko pisat v Grid. Bolje, da to urediš že v sourcu.

Naredi si nek Class, ki vsebuje vse property-e, ki jih želiš videti kot stolpce. Lahko tudi kakšnega skritega(npr. Id).

Potem pa samo for next,
vmes pa napolni vsak class s podatki.
Posamezen Class pa dodaj v listo.

Nazadnje pa listo obesi na na Grid.

Namesto List lahko še raje uporabi kakšen Collection ali ObservableCollection, ki omogoča spreminjanje vredosti in sproža dogodke.

Upam, da sem te prav razumel, kaj hočeš.

evo sm že pogruntu...

    Sub updatelist()
        ' update sql
        For Each row As DataRow In fxts.datasetu.Tables("users").Rows
            If row.RowState <> DataRowState.Deleted Then
                If String.IsNullOrEmpty(row("hash").ToString()) = True Then
                    row("hash") = System.Guid.NewGuid().ToString()
                End If
            End If
        Next
        Try
            adapter_users.Update(fxts.datasetu.Tables("users"))
        Catch ex As Exception
            fxts.infobox("SQL: " + ex.Message.ToString)
        End Try
    End Sub

Če je multiselect vklopljen in imaš označenih več polj, itak ne moreš vpisovat.

Lahko pa nadziraš,koliko polj je selektiranih, in ob >1, izklopiš edit.

Razumeti moraš, kako je sestavljen GridView.
Če boš prišel toliko globoko, da boš overridal osnovni element, boš lahko postoril karkoli, kar ti omogoča osnovni element.Recimo, da je to TextBox. Določiš mu border in si rešen. Seveda, če boš sploh smel posegati tako globoko.
Seveda pa nimaš toliko prostih rok kot pri WPF.

Boš pa moral paziti, da se ti vedno, ko izgubi focus, posatvi nazaj na nulto pozicijo.

Zanima me še to...

Če dodam neke kolone v lokalno bazo. Zakaj moram potem v datagridview dodajat nove kolone, da jim lahko določim parametre in obliko?

Recimo imam tako:

Public c_active As New DataGridViewCheckBoxColumn() With {.Name = "Active", .DataPropertyName = "Active", .ValueType = System.Type.GetType("System.UInt16", .TrueValue = 1, .FalseValue = 0)}
Public c_columns As New ArrayList({c_active})

            For Each column In c_columns
                .Columns.Add(column.datapropertyname)
                .Columns(column.datapropertyname).datatype = column.valuetype
            Next

       With DataGridView1
            .DataSource = fxts.datasetu.Tables("users")
end with

      DataGridView1.Columns.Add(fxts.c_active)

        With fxts.c_active
            .Width = 45
            .Frozen = True
            .Resizable = DataGridViewTriState.False
            .ToolTipText = "Enable trading on this account"
            .DisplayIndex = 0
            .TrueValue = 1
            .FalseValue = 0
        End With

nevermind. sem že pogruntal...

        For Each dgvCol In c_columns
                .Columns.Add(dgvCol.DataPropertyName)
                .Columns(dgvCol.DataPropertyName).DataType = dgvCol.ValueType
                .Columns(dgvCol.DataPropertyName).ColumnName = dgvCol.Name
            Next

s tem da vsakič brišem datagridview1 tablo pred novim vnosom:

        With DataGridView1
            .DataSource = fxts.datasetu.Tables("users")
            .EnableHeadersVisualStyles = True
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
            .RowsDefaultCellStyle.BackColor = Color.AliceBlue
            .EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2
            .AllowUserToResizeRows = False
            .Columns.Clear()
        End With

        For Each column In fxts.c_columns
            DataGridView1.Columns.Add(column)
        Next

DataGrid dela na osnovi baze in vsak Row je svoj record v bazi. Lahko to počneš.
Se moraš pa zavedat, da bo prej ali slej prišlo do zapisa v isto polje. Ti boš pisal, program ti bo pa hkrati popravljal vrednost. Ali pa recimo hkrati refreshanje celega rowa in ročnega pisanja. Takim situacijam se raje izogni. Tam, kjer je možnost, da bo v nekem času prišlo do refreshanja, raje zakleni možnost editiranja. Samo štalo boš imel s tem. Nikoli ne boš vedel pri, čem si.

Ce bi recimo v zgornjemu primeru tist tvoj update iz threada trajal 10 sekund...in ti vmes probas editirat isti row...bi bil gui programa freeznen 10 sekund :). Ce das lepo tryenter v begin edit in ti ta vrne false das lepo e.Cancel na true in exitas iz procedure. Pac ne mores editirat v tistem momentu ampak vsaj gui ne bo freeznen.

Hm če uporabim synclock v timer threadu, mi dela same probleme. že samo da malo šarim po datagridview, mi zmeša rowe, ali pa meče errorje. če tega ne uporabim, dobivam pa error v datagridview: datatable internal index is corrupted '13'

recimo..
selektriram celice randomly in vlečem čez celice poljubno. čez čas se mi kr celice zamenjajo...

Če hočeš ti lahko pošljem programček da sam vidiš...

najbolje bi bilo, če bi zadevo lahko rešil z System.timers.timer in ne z System.threading.timer
Problem je samo v tem, da recimo v system.timers.timer ne morem podati argumenta, recimo row s katerim bi operiral.

ok ta reč je zdej zlo kompleksna. program mi zmrzne, če loadam podatke iz sql baze v tabelo v primeru da imam mtconnectorobj.ctimer.SynchronizingObject = Me
ne vem v čem je fora...

v primeru da ne loadam podatkov iz sql baze, dela vse normalno. ko loadam podatke se začne vse skupaj čudno vesti. ampak to šele po tem ko so podatki v tabelo oziroma lokalni dataset naloženi.

imam pa takole:

    Sub updatelist()
        If sqlcon.State = ConnectionState.Open Then
            Try
                adapter_users.Update(datasetu.Tables("users"))
            Catch ex As Exception
                MsgBox("exception updatelist: " & ex.ToString)
            End Try
        End If
    End Sub ' update mysql database
    Sub reloadlist()
        updatelist()
        If sqlcon.State = ConnectionState.Open Then
            datasetu.Tables("users").Clear()
            adapter_users.Fill(datasetu.Tables("users"))
        End If
        For Each row As DataRow In datasetu.Tables("users").Rows
            checktimer(row)
        Next
    End Sub ' update local database from mysql

preden ustvarim datagridview imam takole:

   Public Sub resetdatagridview()
        With DataGridView1
            .DataSource = fxts.datasetu.Tables("users")
            .EnableHeadersVisualStyles = True
            .AlternatingRowsDefaultCellStyle.BackColor = System.Drawing.Color.Azure
            .RowsDefaultCellStyle.BackColor = System.Drawing.Color.AliceBlue
            .EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2
            .AllowUserToResizeRows = False
            .Columns.Clear() ' zbriše kolone, ohrani podatke v tabeli!
            .DefaultCellStyle.NullValue = .DefaultCellStyle.NullValue
        End With
        For Each c As DataGridViewColumn In fxts.c_columns
            If c.ValueType IsNot GetType(Guid) Then
                DataGridView1.Columns.Add(c)
            End If
        Next

Potem pa še vsak column konfiguriram posebej...

        With fxts.c_ID
            .ToolTipText = "User name"
            .DisplayIndex = 1
            .ValueType = fxts.c_ID.ValueType
        End With

zdej načeloma ne vem... a bi se mogu tale column pokazat v datagridview, glede na to da sem prej ustvaril tabelo in potem naložil podatke iz dataset.table?

 .Columns(d_mtserver.ColumnName).DefaultValue = New mtconnector

a ni v videposnetku tko da pri reloadu ti spraznis tabelo v datasetu in jo pol reloadas?
kje je problem?
ko updejtas tiste "uid"-je pred reloadom morajo seveda bit zapisani.

kaj tocno je ta uid, kdaj ga nastavis, zakaj ga ne zapises v bazo, ko ga spremenis in preden delas reload?

Am datagridview nima nobenega internega id-ja
v dataset se nalozijo tabele..te majo svoj index 0,1,2,3 in seveda lahko jih klices tudi preko imena dataset("nekoimetabele")
te tabele prav tako nimajo internega id-ja za rowe ampak imajo spet index. table.rows(0) 1, 2, 3 ,4....
vrstni red je odvisen od queryja, ki se ga uporabi v select statementu.
ce dataset naredis preko winforms wizarda(direktno na gridviewju recimo) ti ta naredi bindingsource tableadapter the works...in obenem tudi typed dataset, ki ze exposa tabele kot propertyje.

tako ima tak dataset v katerega si recimo dodat Tabela1 in Tabela2 preko wizarda ze propertyja z istim imenom.
In preko tega propertyja lahko tudi klices metodo FindByID, ki ti vrne rowview glede na primary key v tabeli.
ce ti ta dataset filas sam z lastnimi queryji potem lahko do tabel(tako kot v tvojem video posnetku) dostopas lepo preko
Dataset("imetabele")
to ti vrne instanco, ki je tipa DataTable.
In DataTable ti exposa funkcijo z imenom "select"
preko nje lahko vedno najdes rowview s filtriranjem.
Recimo da ima tabela Test 2 kolumna. ID in Name (id je navaden int Name pa recimo nvarchar ali text)
Dim rows() As DataRow = DataSet["Test"] .Select("ID=6") //vrne array, ki vsebuje en element(row) z id-jem 6
rows = DataSet["Test"] .Select("Name LIKE '%test%'") //vrne array z rowi, kjer column "Name" vsebuje besedo test

Ampak pozor...tista tvoja logika, kjer vsakemu rowu dodas nek objekt, ki potem updejta ta row ne bo delovala.
mislim, da si v videoposnetku rowu dodal objekt...potem spucal rowe...jih nalozil...timer pa je potem uporabil tabelo iz dataseta in po njej iskal tisti row.
ce ze cutis neko silno potrebo, da za vsak row laufas svoj objekt/timer potem mora biti to definitivno v neki svoji listi.
in kot parameter po katerem bo shranil referenco na row NE SME biti NE row niti INDEX iz tabele, ki je v datasetu.
Edino kar pride v postev je primary key iz tabele(v zgorjem primeru bi bil to column "ID").
Row potem vsakic poisces kot je napisano zgoraj.
AMPAK!!!!!!!!!
Se zmeraj imas problem.
In sicer....ti bos naredil ene 20 takih timerjev oz objektov(karkoli ze so). ti objekti bodo po neki logiki(timer, event,whatever...ne vem) ob nekem random casu probali poiskati ta row in spremeniti neko vrednost.
Ce bos ti med tem spucal dataset oz tabelo v datasetu...timer rowa ne bo nasel. Torej bos moral poskrbeti, da imas to (clear/reload) logiko spet sinhronizirano z logiko v teh timerjih/objektih (magar synclock...) tako, da noben izmed teh timerjev/objektov, ne bo poskusal iskati IN spreminjati rowa, dokler se izvaja clear/load.
Prav tako se clear/load, ne sme izvajati, ko ti timerji spreminjajo podatke.

Oh se opravicujem za tiste [] oklepaje ( DataSet["Test"] )...pisem na pamet in ker sam ponavadi pisem v c#-ju vcasih pozabim, da je treba v vb-ju uporabljati okrogle oklepaje

Recimo da si tabelo zafilal z 10imi rowi.
in potem tabelo uporabil v dataviewju.
na zacetku bores rowview(0) kazal na row(0) v datatabeli.
ampak ce bi v dataviewju uporabil filter...order by potem to vec ne drzi. ker lahko dataview zaradi filtra mogoce prikazuje samo 5 rowov.Pa se teh 5 je mogoce zadnjih 5 v datatabeli.
Iso velja za rowe iz datagrida. To je interni index komponente. POGLED na podatke iz datatabele in se ga zato NE sme NIKOLI uporabljati za referenco, ki se uporabljala za iskanje podatkov, ko/ce bodo ti spremenjeni/nalozeni na novo ali v drugacnem vrstnem redu.
Vedno se sklicuj na fixen podatek iz same baze. Po moznosti nek unique key(v bazi se ponavadi primary keye naredi unique in so zato primerni za tako referenco).
Nacin kam in kako jih spravis ni pomemben. Vazno, da ves kje se podatek trenutno nahaja in ga lahko ko ga rabis poisces in spremenis.

hm. Sem dal snyclock izven try in zgleda da dela. Cel program se mi sicer zatika, sam dela. Nisem si mislu da bo 70 threadov toliko kurilo procesor.

izgleda da debugging pokur ves cpu. običajno mi kuri max 1% cpuja pri cca 50 threadih. timerje sem vrgu ven. V glavnem zdej dela vse kot mora, predvsem pa hitro.