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) μένουν άδεια! Τί φταίει? Μπορεί κάποιος να βοηθήσει?
No knowledge can be certain, if it is not based
upon mathematics or upon some other knowledge
which is itself based upon the mathematical
sciences.