Predmet:Re: Kako uvesti podatke iz XML-a

---

Case "Tabela"
Dim Naziv As String, Podatak1 As String, temp As String
Dim Nazivi As String
If Tabela = "promjene_u_kapitalu" Then
tdf.Fields.Append tdf.CreateField("DK", dbSingle)
tdf.Fields.Append tdf.CreateField("RR", dbSingle)
tdf.Fields.Append tdf.CreateField("ND", dbSingle)
tdf.Fields.Append tdf.CreateField("OR", dbSingle)
tdf.Fields.Append tdf.CreateField("AND", dbSingle)
tdf.Fields.Append tdf.CreateField("U", dbSingle)
tdf.Fields.Append tdf.CreateField("MI", dbSingle)
tdf.Fields.Append tdf.CreateField("UK", dbSingle)
Else
If Tabela = "gotovinski_tokovi_indirektna_metoda" Then
tdf.Fields.Delete ("ID")
tdf.Fields.Append tdf.CreateField("ID", dbText, 7)
End If
tdf.Fields.Append tdf.CreateField("bruto", dbSingle)
tdf.Fields.Append tdf.CreateField("ispravka", dbSingle)
tdf.Fields.Append tdf.CreateField("tekuca_godina", dbSingle)
tdf.Fields.Append tdf.CreateField("prosla_godina", dbSingle)
End If

---