WinForms

Απ: Πρόβλημα κατά το load της φόρμας

imanos — Fri, 03 Mar 2006 23:29:32 GMT

Αν σου λειτουργεί σωστά μέ show ενώ μέ show Dialog όχι τότε η κάποια διαδικασία που πρέπει νά εκτελεστεί είναι μέτά την ShowDialog μέ αποτέλεσμα νά μήν γίνεται.
Βάλε breakpoint μετά την ShowDialog για να μπορέσεις να ελέγξεις το πρόβλημα αφού κλείσεις την φόρμα σου.

Απ: Πρόβλημα κατά το load της φόρμας

kostasdiktia — Fri, 03 Mar 2006 08:23:24 GMT

Δεν μπορώ να καταλάβω τι συμβαίνει! Πάντως όταν εμφανίζω την φόρμα με show και όχι με showdialog όλα πάνε καλά..

Απ: Πρόβλημα κατά το load της φόρμας

imanos — Fri, 03 Mar 2006 08:08:14 GMT

Βλέπω ότι καλείς την refresh_data() μετά το copy_data() την οποία και δέν αναφέρεις τί κάνει στον κώδικά.
Οπότε δές μήπως αυτή σου προκαλεί το πρόβλημα.

Πρόβλημα κατά το load της φόρμας

kostasdiktia — Fri, 03 Mar 2006 04:30:18 GMT

Private Sub List_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Start()

temp = System.IO.Path.GetFullPath("Data.mdb")

temp = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & temp & ";Mode=ReadWrite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=" & "isap" & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"

OleDbConnection1.ConnectionString = temp

Isap2.Clear()

OleDbDataAdapter1.Fill(Isap2)

Me.BindingContext(Isap2, "Trena").Position = 0

write_pos()

copy_data()

refresh_data()

End Sub

Sub copy_data()

If time1.Text <> "" And time2.Text <> "" And time3.Text <> "" Then

ComboBox2.Text = time1.Text.Substring(0, 2)

ComboBox3.Text = time1.Text.Substring(3, 2)

ComboBox4.Text = time1.Text.Substring(6, 4)

ComboBox5.Text = time2.Text.Substring(0, 2)

ComboBox6.Text = time2.Text.Substring(3, 2)

ComboBox7.Text = time2.Text.Substring(6, 4)

ComboBox8.Text = time3.Text.Substring(0, 2)

ComboBox9.Text = time3.Text.Substring(3, 2)

ComboBox10.Text = time3.Text.Substring(6, 4)

End If

problem.Text = problem2.Text

type.Text = type2.Text

n1.Text = n12.Text

n2.Text = n22.Text

n3.Text = n32.Text

n4.Text = n42.Text

n5.Text = n52.Text

n6.Text = n62.Text

key = key2.Text

kwdikos.Text = kwdikos2.Text

vlavi.Text = vlavi2.Text

sign.Text = sign2.Text

replace.Text = replace2.Text

workers.Text = workers2.Text

End Sub

Τα textboxes με το "2" στο τέλος είναι binded!

Όταν άνοίγω την φόρμα για πρώτη φορά, όλα κυλούν σωστά! Κλείνοντάς και ξαναανοίγοντάς την, τα text fields (όχι των binded) μένουν άδεια! Τί φταίει? Μπορεί κάποιος να βοηθήσει?