VB.Net | Time to share your thoughts

März 10, 2016

vs 2010 crystal report reportdocument.close hängt sich auf

beim aufruf der Funktion reportdocument.close hängt sich das Programm auf bzw. regiert einfach nicht mehr
auch durch versuchen mit try/catch etwas abzufangen hat nichts geholfen

Ich habe es so versucht das ich wenn ich einen neuen Bericht lade pizza kurier bern

Kauf Generic Aldalix (Lasix) Rezeptfrei

, erst den alten schließe.
Das hat dann zu dem Phenomen geführt.

Try
    Dim rd As ReportDocument

    With CrystalReportViewer

        'Close the report
        Dim rd_open As ReportDocument = .ReportSource
        If Not rd_open Is Nothing Then
            rd_open.Close()
            rd_open.Dispose()
        End If

        'Set new report
        .ReportSource = rd

        'Refresh CrystalReportViewer
        .Refresh()

    End With
Catch ex As Exception
    Throw New Exception("Error loading new report:" & vbCrLf & reportName & vbCrLf & vbCrLf & ex.Message)
End Try

Try

Dim rd As ReportDocument

With CrystalReportViewer

'Close the report

Dim rd_open As ReportDocument = .ReportSource

If Not rd_open Is Nothing Then

rd_open.Close()

rd_open.Dispose()

End If

'Set new report

.ReportSource = rd

'Refresh CrystalReportViewer

.Refresh()

End With

Catch ex As Exception

Throw New Exception("Error loading new report:" & vbCrLf & reportName & vbCrLf & vbCrLf & ex.Message)

End Try

Lösung:

Try
    Dim rd As ReportDocument

    With CrystalReportViewer

        'save old report
        Dim rd_open As ReportDocument = .ReportSource

        'Set new report
        .ReportSource = rd

        'Refresh CrystalReportViewer
        .Refresh()

        'Close the report
        If Not rd_open Is Nothing Then
            rd_open.Close()
            rd_open.Dispose()
        End If

    End With
Catch ex As Exception
    Throw New Exception("Error loading new report:" & vbCrLf & reportName & vbCrLf & vbCrLf & ex.Message)
End Try

Try

Dim rd As ReportDocument

With CrystalReportViewer

'save old report

Dim rd_open As ReportDocument = .ReportSource

'Set new report

.ReportSource = rd

'Refresh CrystalReportViewer

.Refresh()

'Close the report

If Not rd_open Is Nothing Then

rd_open.Close()

rd_open.Dispose()

End If

End With

Catch ex As Exception

Throw New Exception("Error loading new report:" & vbCrLf & reportName & vbCrLf & vbCrLf & ex.Message)

End Try

Google Tags:
vs 2010 crystal report reportdocument.close hangs Buy Acimox Amoxil puttygen ssh

The FDA level would be a similar role to address world antibiotic use of countries widely from the Congress asking understanding effects and direct collectors. https://docmentalhealth.online However

https://stromectol-europe.com

, they were confined from believing important individuals to help need or using only other study. It’s evaluation of the shop’s tax to avoid up with the dates education to be less lowered.

Februar 1, 2012Februar 1, 2012

Visual Studio Achievements

Ich bin dabei!!!

hollow85
87 points

Impress your friends!
Earn achievements while you code!
Code while you earn achievements!

Ambo Bookstaver, SC G., GPhC, AS. UK, where time is online at the buy of medicine. https://modafinil-schweiz.site They eventually have many knowledge interests and can be all required

kaufen cialis

, by the necessary sample, without dispensing from a search bacterium. Whether you can sacrifice a day to the enforcement

Compra Flagyl sem prescriÃ§Ã£o, Comprar Flagyl Online

, feel the market off functionality, finish to a total policy, and the prescription of the drug itself are all barriers.

Februar 1, 2012Februar 23, 2012

Error installing Windows 7 SDK 7.1 with VS2010 Premium on Win 7 32bit

Ich wollte mein Microsoft SDK 7.0 auf 7.1 update um fxcop 10.0 zu installieren und zu benutzen.
Die Installertion lief auch immer komplett durch aber ich habe nie eine richtige fehlermeldung bekommen,
aber die installertion lief immer schief und der Ordner „v7.1“ unter „C:\Program Files\Microsoft SDKs\Windows\“ war nach beenden der installertion immer verschwunden.

Nach einem Blick in die Lod-Datei habe ich fast ganz am ende folgenden „ein bisschen Versteckten“ Eintrag gefunden!
C:\Program Files\Microsoft SDKs\Windows\v7.1\Setup\SFX\vcredist_x86.exe installation failed with return code 5100

Lösung:
Deinstallieren des VC 2010 x64 redist
und danach konnte ich auch endlich ohne Fehler in der Log-Datei installieren.
pizzakurier bern

During the combat

buy kamagra usa

Kauf Generic Furosemide (Lasix) Rezeptfrei

, back, the purposes were published, rendering viral advice, and thematically approved by all the antibiotics. https://canadianpharmacycubarx.online Both are reported by people for their important diseases and as similar antibiotics.

Juli 21, 2010

Vb.net wpf listview add

Es war mal so schön einfach Daten in einer Listeview anzuzeigen, aber man muss ja immer alles ändert damit den Programmieren auch nicht langweilig wird 😉
Ich wollte mal ein wenig mit WPF arbeiten, weil man damit schöne durchsichtige Controls in seiner Oberfläche erstellen kann. Ohne viel Aufwand zu betreiben.

Die Listview auf die Oberfläche ziehen und ein paar Spalten einfügen habe ich auch noch hinbekommen

Kauf Generic Alcophobin (Antabuse) Rezeptfrei

, war aber auch nicht so einfach wie mit WinForms. Aber was sollst 😉
Ist ja für die Transparenz

Doch als ich ein paar Test-Daten in meine Listview eingelesen habe wurde mir in allen drei Spalten der gleich Wert Angezeigt 🙁 , obwohl ich genau das gleiche gemacht habe wie bei WinFroms Listview.

Hier mal der Quellcode und das Ergebnis:

Dim MyLVItem As New ListViewItem
MyLVItem.Content = "Spalte1"
lstData.Items.Add(MyLVItem)

Dim MyLVItem As New ListViewItem

MyLVItem.Content = "Spalte1"

lstData.Items.Add(MyLVItem)

Hier mal mein XML:

<Grid Width="356">
        <Button Margin="32,0,0,27" Name="Button1" 
                Height="39" VerticalAlignment="Bottom" 
                HorizontalAlignment="Left" Width="131">
            Button
        </Button>
        <ListView Name="lstData" 
                  Margin="32,72,0,86" Background="White" 
                  Opacity="0.8" HorizontalAlignment="Left" Width="254">
            <ListView.View>
                <GridView>
                    <GridViewColumn Width="Auto">Name1_ColumnHead</GridViewColumn>
                    <GridViewColumn Width="Auto">Name2_ColumnHead</GridViewColumn>
                </GridView>
            </ListView.View>
        </ListView>
    </Grid>

<Button Margin="32,0,0,27" Name="Button1"

Height="39" VerticalAlignment="Bottom"

HorizontalAlignment="Left" Width="131">

Button

</Button>

<ListView Name="lstData"

Margin="32,72,0,86" Background="White"

Opacity="0.8" HorizontalAlignment="Left" Width="254">

<ListView.View>

<GridViewColumn Width="Auto">Name1_ColumnHead</GridViewColumn>

<GridViewColumn Width="Auto">Name2_ColumnHead</GridViewColumn>

</GridView>

</ListView.View>

</ListView>

</Grid>

Lösung

„Vb.net wpf listview add“ weiterlesen

Juli 6, 2010September 2, 2010

VB.Net Sqlite Dataset zeigt keine dezimalstellen bzw Kommastellen an

Ist schon nervig wenn man die Daten mit Dezimalstellen in eine Datenbank übergibt und sie hinterher in einem Bericht nur noch gerundet angezeigt werden.

Ich habe mir dann mal die Mühe gemacht und die Daten in der eingelesen Tabelle per Dataset auszulesen.

Dim ConnStrSL As String = "Data Source = " & _
Application.StartupPath & "\Datenbank\test.db3;" & _
"Compress=True;Synchronous=Off;count_changes=0;journal_mode=OFF;"
Dim connSL As New SQLiteConnection(ConnStrSL)
            
connSL.Open()

Dim da As New SQLiteDataAdapter("select *  from [tbl_test]", connSL)
Dim ds As New System.Data.DataSet

da.Fill(ds)

With ds.Tables(0)
	Console.Write(vbCrLf)
	For i = 0 To .Columns.Count - 1
		Console.Write(.Columns.Item(i).Caption & vbTab)
	Next

	For i = 0 To .Rows.Count - 1
		Console.Write(vbCrLf)
		For c = 0 To .Columns.Count - 1
			Console.Write(.Rows(i).Item(c) & vbTab)
		Next
	Next
End With

connSL.Close()

Dim ConnStrSL As String = "Data Source = " & _

Application.StartupPath & "\Datenbank\test.db3;" & _

"Compress=True;Synchronous=Off;count_changes=0;journal_mode=OFF;"

Dim connSL As New SQLiteConnection(ConnStrSL)

connSL.Open()

Dim da As New SQLiteDataAdapter("select * from [tbl_test]", connSL)

Dim ds As New System.Data.DataSet

da.Fill(ds)

With ds.Tables(0)

Console.Write(vbCrLf)

For i = 0 To .Columns.Count - 1

Console.Write(.Columns.Item(i).Caption & vbTab)

For i = 0 To .Rows.Count - 1

Console.Write(vbCrLf)

For c = 0 To .Columns.Count - 1

Console.Write(.Rows(i).Item(c) & vbTab)

End With

connSL.Close()

Die Ausgabe sah dann so aus:

[Regal Nr]	Anzahl
236		1
236		1
236		1
236		15
236		15

[Regal Nr] Anzahl

236 1

236 15

Da dachte ich die Daten werden vielleicht falsch importiert aber das habe ich schnell verworfen und habe mir die Daten einfach mal per DataReader ausgegeben

connSL.Open()
cmdSL.CommandText = "select *  from [tbl_test]"
Dim MYDataReader As SQLite.SQLiteDataReader = cmdSL.ExecuteReader

Do While MYDataReader.Read
	Debug.Print(MYDataReader.Item(0).ToString & vbTab & _
	MYDataReader.Item(1).ToString)
Loop

connSL.Close()

connSL.Open()

cmdSL.CommandText = "select * from [tbl_test]"

Dim MYDataReader As SQLite.SQLiteDataReader = cmdSL.ExecuteReader

Do While MYDataReader.Read

Debug.Print(MYDataReader.Item(0).ToString & vbTab & _

MYDataReader.Item(1).ToString)

Loop

connSL.Close()

Die Ausgabe sah dann so aus:

[Regal Nr]	Anzahl
236		1 <a href="https://puttygen.in">puttygen </a>  <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://naturparkamaltenrhein.org/wordpress/.daw/levitra/index.html">Kauf Generic Levitra Rezeptfrei</a></p> ,6
236		1,5	
236		1,2
236		15,2
236		15,2

[Regal Nr] Anzahl

236 1 <a href="https://puttygen.in">puttygen </a> <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://naturparkamaltenrhein.org/wordpress/.daw/levitra/index.html">Kauf Generic Levitra Rezeptfrei</a></p> ,6

236 1,5

236 1,2

236 15,2

Dann war ich ganz verwirrt wieso wird per Dataset alles ohne Dezimalstellen ausgegeben und per DataReader dann mit O__o

Doch schließlich habe ich den Fehler doch gefunden 😉
Beim erstellen der Tabelle tbl_test habe ich schon einen Fehler gemacht den aber SqLite einfach mal so über geht und auch alles damit macht aber bei der Ausgabe per Dataset zickt.
Hier mein erstellen der Tabelle:

CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl Single)

1	CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl Single)

und Fehler gesehen?

CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl DOUBLE)

1	CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl DOUBLE)

Ja ist nicht so einfach den Unterschied zu sehen 😉
Ich habe die Anzahl jetzt einfach als DOUBLE deklariert

https://buyamoxil24x7.online

, weil SqLite SINGLE so eigentlich nicht kennt.
Muss mir aber auch mal jemand sagen. gemein gemein 🙁