Visual Basic

gilchinger wrote:

Only for date/time formats i use automatic adjustment to the new format.

I are Troll

Form2 frm = new Form2();
frm.Show();

offroaderdan wrote:

form2 = new form2

Dim subnode = node.SelectSingleNode("Name")
               Dim subnode2 = node.SelectSingleNode("SizeData")
               Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value

Try

    Dim odoc As New System.Xml.XmlDocument
    odoc.Load("C:\test\10g_2.xml")
    Dim oXmlLog As System.Xml.XmlElement
    Dim text As String = ""
    For Each oXmlLog In odoc.SelectNodes("Root")
        Dim node As System.Xml.XmlElement
        For Each node In oXmlLog.SelectNodes("Folder")
            Dim fullpath As String = node.Attributes.GetNamedItem("fullpath").Value

            'Dim SizeData As String = node.Attributes.GetNamedItem("SizeData").Value

            Dim subnode = node.SelectSingleNode("Name")
            Dim name As String = subnode.InnerText

            Dim subnode2 = node.SelectSingleNode("SizeData")
            Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value


            Dim Date_ As XmlElement = odoc.DocumentElement
            Dim Date_time As XmlNodeList = Date_.ChildNodes
            Dim Date__time = (Date_time(0).InnerText)



            text &= Date__time & " " & fullpath & " " & name & " " & SizeData & Environment.NewLine
        Next
    Next

    Console.Write(text)
    Console.Read()
Catch ex As Exception
    Console.Write(ex.ToString())
    Console.Read()
End Try

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load xml into a dataset to use here
        Dim dS As New DataSet
        Dim fS As FileStream
        'open the xml file so we can use it to fill the dataset
        fS = New FileStream("C:\test\10g_2.xml", FileMode.Open)
        'fill the dataset
        Try
            dS.ReadXml(fS)
        Catch ex As Exception
            MsgBox(ex)
        Finally
            fS.Close()
        End Try
        Me.DataGridView1.DataSource = dS.Tables(2)

    End Sub
End Class

Sum(ISNULL(Order.item_qty,0))