änderungen der Werte von einer Spalte in datatable in vb.net

Möchte ich in einer Schleife durch ein databale und ändern Sie die Werte einer bestimmten Spalte in datatable.

eg: gibt die Datenbank Request_ID, Desc, Date und Status_Ind. Die Status_Ind Spalte integer-Werte. Ich will nicht zu zeigen, die integer-Werte für den Benutzer. Ich möchte konvertieren, die auf einen string-Wert, basierend auf integer-Werte zurückgegeben, die in die Spalten.

if Status_Ind = 1 then 
    'the values changes to Published
Haben Sie eine Status-Tabelle? In anderen Worten, ist Status_Ind einen foreignkey auf eine andere Tabelle, die diese Namen enthält, wie Published? Wenn ja, sollten Sie join beide Tabellen vor dem füllen der DataTable in die SQL-Abfrage. Oder sollten Sie diese Tabelle als auch für das DataSet und das erstellen fk-Beziehungen zwischen den beiden(oder lassen Sie die designer machen das automatisch, wenn die zugrunde liegenden dbms hat die FK-s).
Du meinst eine lookup-Tabelle. Ich fand einen workaround. Ich habe eine weitere Spalte hinzufügen und Werte durch die überprüfung der integer-Werte in die Status_Int Spalte. Was meinst du was darüber? Ist es effizienter als wenn man es aus der Datenbank Ende?

InformationsquelleAutor Joshua | 2012-01-20

  1. 3

    Könnte man es machen, durch die Schaffung einer anderen Spalte:

    Dim dt As New DataTable
dt.Columns.Add(New DataColumn("status_int", GetType(Int32)))
dt.Columns.Add(New DataColumn("status_str", GetType(String)))

'add example row - not publised
Dim newDr0 As DataRow = dt.NewRow
newDr0(0) = 0
dt.Rows.Add(newDr0)

'add example row - publised
Dim newDr1 As DataRow = dt.NewRow
newDr1(0) = 1
dt.Rows.Add(newDr1)

For Each dr As DataRow In dt.Rows
    Select Case dr(0)
        Case 1
            dr(1) = "Published"
        Case Else
            dr(1) = "Not published"
    End Select
Next

For Each dr In dt.Rows
    Console.WriteLine(dr(0).ToString + " " + dr(1).ToString)
Next

    InformationsquelleAutor alundy

  2. 4

    Vorausgesetzt, deine Datentabelle ist definiert als:

    Dim dt As DataTable

    Zuerst müssen Sie fügen Sie eine neue Spalte in Ihrer Datentabelle zu halten den Status:

    dt.Columns.Add("Status", Type.GetType("System.String"))

    Nun eine Schleife durch die DataTable und aktualisieren Sie die status-Spalte:

    For Each dr As DataRow In dt.Rows
    Select Case CInt(dr.Item("Status_Ind"))
        Case 1
            dr.Item("Status") = "Published"
        Case 2
            dr.Item("Status") = "Some other Status"
        Case Else
            dr.Item("Status") = "Unknown"
    End Select
Next

    Dann könnte man entfernen Sie dann die ganze Spalte:

    dt.Columns.Remove("Status_Ind")

    InformationsquelleAutor Matt Wilko

Schreibe einen Kommentar