Public Class frmImportExport
    Dim db As New clsdb
    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Me.GrpExport.Visible = True
        db.Get_Dokumenttypen
        For Each r As DataRow In db.dsDaten.Tables(0).Rows
            Me.ComboBox1.Items.Add(r.Item(1))
        Next
    End Sub

    Private Sub btnDoExport_Click(sender As Object, e As EventArgs) Handles btnDoExport.Click
        Dim s As String
        s = Trim(Me.ComboBox1.Text)
        Dim splitter() As String

        splitter = s.Split(" ")
        Dim dokumenttypnr As Integer = splitter(0)

        Dim exporttables As New DataTable
        Dim ExportDataset As New DataSet
        Dim JoinTalbename As String = ""
        db.Get_Tabledata("Select * from admin_doktypexport", "Admin_DoktypExport")
        exporttables = db.dsDaten.Tables(0).Copy
        For Each r As DataRow In exporttables.Rows
            If r.Item(3) = "" Then
                db.Get_Tabledata("Select * from " + r.Item(1) + " where dokumenttypnr=" + dokumenttypnr.ToString + " and aktiv=1", r.Item(1))
                ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
            Else
                Dim sql As String
                sql = r.Item(3)
                sql = sql.Replace("&&doktype&&", dokumenttypnr.ToString)
                db.Get_Tabledata(sql, r.Item(1))
                ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
            End If
        Next
        SaveFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
        SaveFileDialog1.DefaultExt = "xml"
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then

            ExportDataset.WriteXml(SaveFileDialog1.FileName)
        End If

    End Sub

    Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
        GrpImport.Visible = True
        OpenFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
        OpenFileDialog1.DefaultExt = "xml"
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Me.txtImportDatei.Text = Me.OpenFileDialog1.FileName
            Check_Doktype()
        End If
    End Sub

    Dim importds As New DataSet
    Dim dokumenttypnr As Integer
    Dim dokumenttypbezeichnung As String
    Sub Check_Doktype()
        importds.ReadXml(Me.txtImportDatei.Text)
        dokumenttypnr = importds.Tables(0).Rows(0).Item("Dokumenttypnr")
        dokumenttypbezeichnung = importds.Tables(0).Rows(0).Item("Bezeichnung")

        Dim db As New clsdb
        db.checkdoktype(dokumenttypnr)
        db.checkdoktype(dokumenttypbezeichnung)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        btnImport_Click(sender, e)
    End Sub
End Class