Temp tabulka nemá žádné informace, ale původní tabulka se

Question 1

Mám datatable, že má všechny data v něm, ale když můj VB.net program běží a já se temptable, temptable nemá žádné info. Co dělám špatně?

 Public Sub HTSCode()
    Dim TempTable As New DataTable
    Dim DV As DataView

    TempTable = RatesDataSet.HTS
    DV = TempTable.DefaultView
    DV.Sort = "HTS Code NA"
    TempTable = DV.ToTable
    For Each Row As DataRow In TempTable.Rows
        'doesnt get to this point cause there are no rows.
    Next
End Sub

Přikládám fotky 1 moje datatable, než jsem jej spustit, tak je tam info tam a druhá je, když to běží, ukazuje, že je prázdná. Jsem teď ještě dostat data přímo z tabulky a ne kopii nebo temptable.

Question 2

Odpověď je, že váš problém spočívá jinde. Pomocí tohoto vzorku simulovat váš kód, nemůžu se vůbec dostat objekt s č. řádky

Public Class ds
    Public ReadOnly Property HTS As DataTable
        Get
            Dim dt As New DataTable()
            dt.Columns.AddRange(
                {
                    New DataColumn("HTS Code", GetType(Integer)),
                    New DataColumn("HTS Code NA", GetType(Integer))
                })
            For i = 0 To 4
                Dim row = dt.NewRow()
                row("HTS Code") = i
                row("HTS Code NA") = 10 - i
                dt.Rows.Add(row)
            Next
            Return dt
        End Get
    End Property
End Class

Dim RatesDataSet = New ds

Dim TempTable As DataTable
Dim DV As DataView

TempTable = RatesDataSet.HTS
Console.WriteLine(TempTable.Rows.Count)
DV = TempTable.DefaultView
Console.WriteLine(DV.Count)
DV.Sort = "HTS Code NA"
Console.WriteLine(DV.Count)
TempTable = DV.ToTable
Console.WriteLine(TempTable.Rows.Count)
Console.WriteLine("HTS Code NA:")
For Each Row As DataRow In TempTable.Rows
    Console.WriteLine(Row("HTS Code NA"))
Next

Výstup

5
5
5
5
HTS Kód NA:
6
7
8
9
10

Question 3

Myslím, že to byla moje debilita jsem nikdy propojené tabulky, které tvoří. Jakmile jsem to udělal, že tabulka byla naplněna a funguje. Omlouvám se a díky

djv · Answer 1 · 2021-11-23T22:30:04

Odpověď je, že váš problém spočívá jinde. Pomocí tohoto vzorku simulovat váš kód, nemůžu se vůbec dostat objekt s č. řádky

Public Class ds
    Public ReadOnly Property HTS As DataTable
        Get
            Dim dt As New DataTable()
            dt.Columns.AddRange(
                {
                    New DataColumn("HTS Code", GetType(Integer)),
                    New DataColumn("HTS Code NA", GetType(Integer))
                })
            For i = 0 To 4
                Dim row = dt.NewRow()
                row("HTS Code") = i
                row("HTS Code NA") = 10 - i
                dt.Rows.Add(row)
            Next
            Return dt
        End Get
    End Property
End Class

Dim RatesDataSet = New ds

Dim TempTable As DataTable
Dim DV As DataView

TempTable = RatesDataSet.HTS
Console.WriteLine(TempTable.Rows.Count)
DV = TempTable.DefaultView
Console.WriteLine(DV.Count)
DV.Sort = "HTS Code NA"
Console.WriteLine(DV.Count)
TempTable = DV.ToTable
Console.WriteLine(TempTable.Rows.Count)
Console.WriteLine("HTS Code NA:")
For Each Row As DataRow In TempTable.Rows
    Console.WriteLine(Row("HTS Code NA"))
Next

Výstup

5
5
5
5
HTS Kód NA:
6
7
8
9
10

snažili použít tento kód v aplikaci visual studia vb.net ale to není práce pro mě. Nejste si jisti, jak se začlenit to do svého kódu

Mike · Answer 2 · 2021-12-02T00:06:36

Myslím, že to byla moje debilita jsem nikdy propojené tabulky, které tvoří. Jakmile jsem to udělal, že tabulka byla naplněna a funguje. Omlouvám se a díky

Temp tabulka nemá žádné informace, ale původní tabulka se

Otázka

Nejlepší odpověď

V jiných jazycích

Tato stránka je v jiných jazycích

Populární v této kategorii

Oblíbené položky v této kategorii