เกิดปัญหาเกี่ยวกับการผูกข้อมูล โดยใช้ Form ที่มี Tab ค่ะ vb.net T_T
ปัญหาใหม่มาอีกแล้ว (ปัญหาใหม่รายวัน)
เกริ่นก่อนนะคะ คือ ว่าเราจะทำการค้นหาข้อมูลจาก หน้า Form ค้นหาก่อนนะคะ
เสร็จแล้วพอเราเลือกข้อมูล ก็จะให้มันไปโชว์ที่หน้า Form จัดการข้อมูลของพนักงาน
เราจะผูกข้อมูลไว้โดยให้มันอ่านจากรหัสพนักงานค่ะ ให้มัน Binding กัน(ข้อมูลมันก็มานะ)
แต่ว่าพอเรากดไปที่ Tab ถัดไป มันก็ขึ้น Error แบบนี้ค่ะ
เราก็เลยคิดว่ามันคงจะเป็นเพราะ Tab (เพิ่งเคยใช้ Tab ครั้งแรก)
แต่เบื้องต้นก็ บันทึก ลบ แก้ไข ข้อมูลได้นะคะ
ส่วนนี้เป็นโค้ดที่เกี่ยวข้องค่ะ (เยอะหน่อย database มันใหญ่อ่ะ)
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class DataEmp
Private con As New OleDbConnection(conn)
Private data As DataSet
Private cmd As OleDbCommand
Private adapter As OleDbDataAdapter
Private row_count As Integer = 0
Private _position As Integer = 0
Private Sub ReadData()
Dim sql As String = "SELECT * FROM EmpProfile WHERE IdNumber = " & Me.IdNumbertxt.Text
cmd = New OleDbCommand(sql, con)
Dim adapter As New OleDbDataAdapter(cmd)
data = New DataSet()
adapter.Fill(data, "Emp")
row_count = data.Tables("Emp").Rows.Count
End Sub
Private Sub Bindings()
IdDatabasetxt.DataBindings.Add("Text", data, "Emp.ID")
Datetxt.DataBindings.Add("Text", data, "Emp.EmpDate")
Positiontxt.DataBindings.Add("Text", data, "Emp.EmpPosition")
StatusBox.DataBindings.Add("Text", data, "Emp.EmpStatus")
FrontNametxt.DataBindings.Add("Text", data, "Emp.EmpFrontName")
LastNametxt.DataBindings.Add("Text", data, "Emp.EmpLastName")
DateRegistertxt.DataBindings.Add("Text", data, "Emp.EmpDateRegister")
NickNametxt.DataBindings.Add("Text", data, "Emp.EmpNickName")
IdCardtxt.DataBindings.Add("Text", data, "Emp.EmpIdCard")
Birthdaytxt.DataBindings.Add("Text", data, "Emp.EmpBirthday")
ProvinceBorntxt.DataBindings.Add("Text", data, "Emp.EmpProvinceBorn")
Agetxt.DataBindings.Add("Text", data, "Emp.EmpAge")
Heighttxt.DataBindings.Add("Text", data, "Emp.EmpHeight")
Weighttxt.DataBindings.Add("Text", data, "Emp.EmpWeight")
Racetxt.DataBindings.Add("Text", data, "Emp.EmpRace")
Nationalitytxt.DataBindings.Add("Text", data, "Emp.EmpNationality")
Religiontxt.DataBindings.Add("Text", data, "Emp.EmpReligion")
Addresstxt.DataBindings.Add("Text", data, "Emp.EmpAddress")
Roadtxt.DataBindings.Add("Text", data, "Emp.EmpRoad")
Districttxt.DataBindings.Add("Text", data, "Emp.EmpDistrict")
Areatxt.DataBindings.Add("Text", data, "Emp.EmpArea")
Provincetxt.DataBindings.Add("Text", data, "Emp.EmpProvince")
PostalCodetxt.DataBindings.Add("Text", data, "Emp.EmpPostalCode")
Telephonetxt.DataBindings.Add("Text", data, "Emp.EmpTelephone")
Mobiletxt.DataBindings.Add("Text", data, "Emp.EmpMobile")
Emailtxt.DataBindings.Add("Text", data, "Emp.EmpEmail")
Locationbox.DataBindings.Add("Text", data, "Emp.EmpLocation")
Conditionbox.DataBindings.Add("Text", data, "Emp.EmpCondition")
Marrybox.DataBindings.Add("Text", data, "Emp.EmpMarry")
FatherNametxt.DataBindings.Add("Text", data, "Emp.EmpFatherName")
FatherSurnametxt.DataBindings.Add("Text", data, "Emp.EmpFatherSurname")
FatherAgetxt.DataBindings.Add("Text", data, "Emp.EmpFatherAge")
FatherCareertxt.DataBindings.Add("Text", data, "Emp.EmpFatherCareer")
MotherNametxt.DataBindings.Add("Text", data, "Emp.EmpMotherName")
MotherSurnametxt.DataBindings.Add("Text", data, "Emp.EmpMotherSurname")
MotherAgetxt.DataBindings.Add("Text", data, "Emp.EmpMotherAge")
MotherCareertxt.DataBindings.Add("Text", data, "Emp.EmpMotherCareer")
RelativesNumbertxt.DataBindings.Add("Text", data, "Emp.EmpRelativesNumber")
ManAmounttxt.DataBindings.Add("Text", data, "Emp.EmpManAmount")
WomanAmounttxt.DataBindings.Add("Text", data, "Emp.EmpWomanAmount")
Numbertxt.DataBindings.Add("Text", data, "Emp.EmpNumber")
OneNametxt.DataBindings.Add("Text", data, "Emp.EmpOneName")
OneSurNametxt.DataBindings.Add("Text", data, "Emp.EmpOneSurName")
OneAgetxt.DataBindings.Add("Text", data, "Emp.EmpOneAge")
OneCareertxt.DataBindings.Add("Text", data, "Emp.EmpOneCareer")
TwoNametxt.DataBindings.Add("Text", data, "Emp.EmpTwoName")
TwoSurnametxt.DataBindings.Add("Text", data, "Emp.EmpTwoSurname")
TwoAgetxt.DataBindings.Add("Text", data, "Emp.EmpTwoAge")
TwoCareertxt.DataBindings.Add("Text", data, "Emp.EmpTwoCareer")
ThreeNametxt.DataBindings.Add("Text", data, "Emp.EmpThreeName")
ThreeSurnametxt.DataBindings.Add("Text", data, "Emp.EmpThreeSurname")
ThreeAgetxt.DataBindings.Add("Text", data, "Emp.EmpThreeAge")
ThreeCareertxt.DataBindings.Add("Text", data, "Emp.EmpThreeCareer")
MarryNametxt.DataBindings.Add("Text", data, "Emp.EmpMarryName")
MarrySurnametxt.DataBindings.Add("Text", data, "Emp.EmpMarrySurname")
MarryAgetxt.DataBindings.Add("Text", data, "Emp.EmpMarryAge")
MarryCareertxt.DataBindings.Add("Text", data, "Emp.EmpMarryCareer")
NumberChildtxt.DataBindings.Add("Text", data, "Emp.EmpNumberChild")
SonAmounttxt.DataBindings.Add("Text", data, "Emp.EmpSonAmount")
DaughterAmounttxt.DataBindings.Add("Text", data, "Emp.EmpDaughterAmount")
School1txt.DataBindings.Add("Text", data, "Emp.EmpSchool1")
Branch1txt.DataBindings.Add("Text", data, "Emp.EmpBranch1")
Since1txt.DataBindings.Add("Text", data, "Emp.EmpSince1")
To1txt.DataBindings.Add("Text", data, "Emp.EmpTo1")
School2txt.DataBindings.Add("Text", data, "Emp.EmpSchool2")
Branch2txt.DataBindings.Add("Text", data, "Emp.EmpBranch2")
Since2txt.DataBindings.Add("Text", data, "Emp.EmpSince2")
To2txt.DataBindings.Add("Text", data, "Emp.EmpTo2")
School3txt.DataBindings.Add("Text", data, "Emp.EmpSchool3")
Branch3txt.DataBindings.Add("Text", data, "Emp.EmpBranch3")
Since3txt.DataBindings.Add("Text", data, "Emp.EmpSince3")
To3txt.DataBindings.Add("Text", data, "Emp.EmpTo3")
School4txt.DataBindings.Add("Text", data, "Emp.EmpSchool4")
Branch4txt.DataBindings.Add("Text", data, "Emp.EmpBranch4")
Since4txt.DataBindings.Add("Text", data, "Emp.EmpSince4")
To4txt.DataBindings.Add("Text", data, "Emp.EmpTo4")
School5txt.DataBindings.Add("Text", data, "Emp.EmpSchool5")
Branch5txt.DataBindings.Add("Text", data, "Emp.EmpBranch5")
Since5txt.DataBindings.Add("Text", data, "Emp.EmpSince5")
To5txt.DataBindings.Add("Text", data, "Emp.EmpTo5")
Office1txt.DataBindings.Add("Text", data, "Emp.EmpOffice1")
OfficeAddress1txt.DataBindings.Add("Text", data, "Emp.EmpOfficeAddress1")
Begin1txt.DataBindings.Add("Text", data, "Emp.EmpBegin1")
End1txt.DataBindings.Add("Text", data, "Emp.EmpEnd1")
SumTime1txt.DataBindings.Add("Text", data, "Emp.EmpSumTime1")
Position1txt.DataBindings.Add("Text", data, "Emp.EmpPosition1")
Salary1txt.DataBindings.Add("Text", data, "Emp.EmpSalary1")
Reason1txt.DataBindings.Add("Text", data, "Emp.EmpReason1")
JobQuality1txt.DataBindings.Add("Text", data, "Emp.EmpJobQuality1")
CommanderName1txt.DataBindings.Add("Text", data, "Emp.EmpCommanderName1")
PhoneOffice1txt.DataBindings.Add("Text", data, "Emp.EmpPhoneOffice1")
Office2txt.DataBindings.Add("Text", data, "Emp.EmpOffice2")
OfficeAddress2txt.DataBindings.Add("Text", data, "Emp.EmpOfficeAddress2")
Begin2txt.DataBindings.Add("Text", data, "Emp.EmpBegin2")
End2txt.DataBindings.Add("Text", data, "Emp.EmpEnd2")
SumTime2txt.DataBindings.Add("Text", data, "EmpSumTime2")
Position2txt.DataBindings.Add("Text", data, "Emp.EmpPosition2")
Salary2txt.DataBindings.Add("Text", data, "Emp.EmpSalary2")
Reason2txt.DataBindings.Add("Text", data, "Emp.EmpReason2")
JobQuality2txt.DataBindings.Add("Text", data, "Emp.EmpJobQuality2")
CommanderName2txt.DataBindings.Add("Text", data, "Emp.EmpCommanderName2")
PhoneOffice2txt.DataBindings.Add("Text", data, "Emp.EmpPhoneOffice2")
Office3txt.DataBindings.Add("Text", data, "Emp.EmpOffice3")
OfficeAddress3txt.DataBindings.Add("Text", data, "Emp.EmpOfficeAddress3")
Begin3txt.DataBindings.Add("Text", data, "Emp.EmpBegin3")
End3txt.DataBindings.Add("Text", data, "Emp.EmpEnd3")
SumTime3txt.DataBindings.Add("Text", data, "Emp.EmpSumTime3")
Position3txt.DataBindings.Add("Text", data, "Emp.EmpPosition3")
Salary3txt.DataBindings.Add("Text", data, "Emp.EmpSalary3")
Reason3txt.DataBindings.Add("Text", data, "Emp.EmpReason3")
JobQuality3txt.DataBindings.Add("Text", data, "Emp.EmpJobQuality3")
CommanderName3txt.DataBindings.Add("Text", data, "Emp.EmpCommanderName3")
PhoneOffice3txt.DataBindings.Add("Text", data, "Emp.EmpPhoneOffice3")
TrainningName1txt.DataBindings.Add("Text", data, "Emp.EmpTrainningName1")
TrainBegin1txt.DataBindings.Add("Text", data, "Emp.EmpTrainBegin1")
TrainEnd1txt.DataBindings.Add("Text", data, "Emp.EmpTrainEnd1")
TrainPosition1txt.DataBindings.Add("Text", data, "Emp.EmpTrainPosition1")
TrainQuality1txt.DataBindings.Add("Text", data, "Emp.EmpTrainQuality1")
TrainningName2txt.DataBindings.Add("Text", data, "Emp.EmpTrainningName2")
TrainBegin2txt.DataBindings.Add("Text", data, "Emp.EmpTrainBegin2")
TrainEnd2txt.DataBindings.Add("Text", data, "Emp.EmpTrainEnd2")
TrainPosition2txt.DataBindings.Add("Text", data, "Emp.EmpTrainPosition2")
TrainQuality2txt.DataBindings.Add("Text", data, "Emp.EmpTrainQuality2")
SpeakThaibox.DataBindings.Add("Text", data, "Emp.EmpSpeakThai")
WriteThaibox.DataBindings.Add("Text", data, "Emp.EmpWriteThai")
ReadThaibox.DataBindings.Add("Text", data, "Emp.EmpReadThai")
SpeakEnglishbox.DataBindings.Add("Text", data, "Emp.EmpSpeakEnglish")
WriteEnglishbox.DataBindings.Add("Text", data, "Emp.EmpWriteEnglish")
ReadEnglishbox.DataBindings.Add("Text", data, "Emp.EmpReadEnglish")
SpeakJapanbox.DataBindings.Add("Text", data, "Emp.EmpSpeakJapan")
WriteJapanbox.DataBindings.Add("Text", data, "Emp.EmpWriteJapan")
ReadJapanbox.DataBindings.Add("Text", data, "Emp.EmpReadJapan")
SpeakChinabox.DataBindings.Add("Text", data, "Emp.EmpSpeakChina")
WriteChinabox.DataBindings.Add("Text", data, "Emp.EmpWriteChina")
ReadChinabox.DataBindings.Add("Text", data, "Emp.EmpReadChina")
Program1txt.DataBindings.Add("Text", data, "Emp.EmpProgram1")
Classbox1.DataBindings.Add("Text", data, "Emp.EmpClassbox1")
Program2txt.DataBindings.Add("Text", data, "Emp.EmpProgram2")
Classbox2.DataBindings.Add("Text", data, "Emp.EmpClassbox2")
Program3txt.DataBindings.Add("Text", data, "Emp.EmpProgram3")
Classbox3.DataBindings.Add("Text", data, "Emp.EmpClassbox3")
TypeWriterThaitxt.DataBindings.Add("Text", data, "Emp.EmpTypeWriterThai")
TypeWriterEnglishtxt.DataBindings.Add("Text", data, "Emp.EmpTypeWriterEnglish")
NoDriver1txt.DataBindings.Add("Text", data, "Emp.EmpNoDriver1")
HaveDriverbox1.DataBindings.Add("Text", data, "Emp.EmpHaveDriver1")
NoDriver2txt.DataBindings.Add("Text", data, "Emp.EmpNoDriver2")
HaveDriverbox2.DataBindings.Add("Text", data, "Emp.EmpHaveDriver2")
Sport1txt.DataBindings.Add("Text", data, "Emp.EmpSport1")
Sport2txt.DataBindings.Add("Text", data, "Emp.EmpSport2")
Sport3txt.DataBindings.Add("Text", data, "Emp.EmpSport3")
Hobby1txt.DataBindings.Add("Text", data, "Emp.EmpHobby1")
Hobby2txt.DataBindings.Add("Text", data, "Emp.EmpHobby2")
Hobby3txt.DataBindings.Add("Text", data, "Emp.EmpHobby3")
Talenttxt.DataBindings.Add("Text", data, "Emp.EmpTalent")
YesNo1box.DataBindings.Add("Text", data, "Emp.EmpYesNo1")
ReasonProvincetxt.DataBindings.Add("Text", data, "Emp.EmpReasonProvince")
OutsiderName1txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderName1")
OutsiderSurname1txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderSurname1")
OutsiderCareer1txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderCareer1")
Relation1txt.DataBindings.Add("Text", data, "Emp.EmpRelation1")
OutsiderAddress1txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderAddress1")
OutsiderPhone1txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderPhone1")
OutsiderName2txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderName2")
OutsiderSurname2txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderSurname2")
OutsiderCareer2txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderCareer2")
Relation2txt.DataBindings.Add("Text", data, "Emp.EmpRelation2")
OutsiderAddress2txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderAddress2")
OutsiderPhone2txt.DataBindings.Add("Text", data, "Emp.EmpOutsiderPhone2")
QuaranterNametxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterName")
QuaranterSurNametxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterSurName")
QuaranterCareertxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterCareer")
Relation3txt.DataBindings.Add("Text", data, "Emp.EmpRelation3")
QuaranterAddresstxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterAddress")
QuaranterPhonetxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterPhone")
QuaranterOfficetxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterOffice")
QuaranterPositiontxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterPosition")
QuaranterOfficeAddresstxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterOfficeAddress")
QuaranterOfficeAddressPhonetxt.DataBindings.Add("Text", data, "Emp.EmpQuaranterOfficeAddressPhone")
YesNo2box.DataBindings.Add("Text", data, "Emp.EmpYesNo2")
Remark1txt.DataBindings.Add("Text", data, "Emp.EmpRemark1")
Informationtxt.DataBindings.Add("Text", data, "Emp.EmpInformation")
YesNo3box.DataBindings.Add("Text", data, "Emp.EmpYesNo3")
Remark2txt.DataBindings.Add("Text", data, "Emp.EmpRemark2")
YesNo4box.DataBindings.Add("Text", data, "Emp.EmpYesNo4")
RelativeNametxt.DataBindings.Add("Text", data, "Emp.EmpRelativeName")
RelativeSurnametxt.DataBindings.Add("Text", data, "Emp.EmpRelativeSurname")
RelativePositiontxt.DataBindings.Add("Text", data, "Emp.EmpRelativePosition")
Relation4txt.DataBindings.Add("Text", data, "Emp.EmpRelation4")
YesNo5box.DataBindings.Add("Text", data, "Emp.EmpYesNo5")
Remark3txt.DataBindings.Add("Text", data, "Emp.EmpRemark4")
Introducetxt.DataBindings.Add("Text", data, "Emp.EmpIntroduce")
Salarytxt.DataBindings.Add("Text", data, "Emp.EmpSalary")
TimeSincebox.DataBindings.Add("Text", data, "Emp.EmpTimeSince")
TimeTobox.DataBindings.Add("Text", data, "Emp.EmpTimeTo")
Bankbox.DataBindings.Add("Text", data, "Emp.EmpBank")
NoAccounttxt.DataBindings.Add("Text", data, "Emp.EmpNoAccount")
Point1txt.DataBindings.Add("Text", data, "Emp.EmpPoint1")
Point2txt.DataBindings.Add("Text", data, "Emp.EmpPoint2")
Point3txt.DataBindings.Add("Text", data, "Emp.EmpPoint3")
Point4txt.DataBindings.Add("Text", data, "Emp.EmpPoint4")
Point5txt.DataBindings.Add("Text", data, "Emp.EmpPoint5")
Point6txt.DataBindings.Add("Text", data, "Emp.EmpPoint6")
Point7txt.DataBindings.Add("Text", data, "Emp.EmpPoint7")
AddExamtxt.DataBindings.Add("Text", data, "Emp.EmpAddExam")
TimesLoantxt.DataBindings.Add("Text", data, "Emp.EmpTimesLoan")
SumLoantxt.DataBindings.Add("Text", data, "Emp.EmpSumLoan")
Loantxt.DataBindings.Add("Text", data, "Emp.EmpLoan")
TimesWarntxt.DataBindings.Add("Text", data, "Emp.EmpTimesWarn")
TimesFinetxt.DataBindings.Add("Text", data, "Emp.EmpTimesFine")
SumFinetxt.DataBindings.Add("Text", data, "Emp.EmpSumFine")
Mistake1txt.DataBindings.Add("Text", data, "Emp.EmpMistake1")
Mistake2txt.DataBindings.Add("Text", data, "Emp.EmpMistake2")
Mistake3txt.DataBindings.Add("Text", data, "Emp.EmpMistake3")
OutOfficebox.DataBindings.Add("Text", data, "Emp.EmpCheckOut")
ReasonOuttxt.DataBindings.Add("Text", data, "Emp.EmpReasonOut")
End Sub
Private Sub DataEmp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
If IdNumbertxt.Text = "" Then
ClearData()
Else
ReadData()
Bindings()
End If
End Sub
Private Sub ClearData()
IdDatabasetxt.Text = ""
IdNumbertxt.Text = ""
Datetxt.Text = Date.Today()
Positiontxt.Text = ""
StatusBox.Text = ""
FrontNametxt.Text = ""
LastNametxt.Text = ""
DateRegistertxt.Text = ""
NickNametxt.Text = ""
IdCardtxt.Text = ""
Birthdaytxt.Text = ""
ProvinceBorntxt.Text = ""
Agetxt.Text = ""
Heighttxt.Text = ""
Weighttxt.Text = ""
Racetxt.Text = ""
Nationalitytxt.Text = ""
Religiontxt.Text = ""
Addresstxt.Text = ""
Roadtxt.Text = ""
Districttxt.Text = ""
Areatxt.Text = ""
Provincetxt.Text = ""
PostalCodetxt.Text = ""
Telephonetxt.Text = ""
Mobiletxt.Text = ""
Emailtxt.Text = ""
Locationbox.Text = ""
Conditionbox.Text = ""
Marrybox.Text = ""
FatherNametxt.Text = ""
FatherSurnametxt.Text = ""
FatherAgetxt.Text = ""
FatherCareertxt.Text = ""
MotherNametxt.Text = ""
MotherSurnametxt.Text = ""
MotherAgetxt.Text = ""
MotherCareertxt.Text = ""
RelativesNumbertxt.Text = ""
ManAmounttxt.Text = ""
WomanAmounttxt.Text = ""
Numbertxt.Text = ""
OneNametxt.Text = ""
OneSurNametxt.Text = ""
OneAgetxt.Text = ""
OneCareertxt.Text = ""
TwoNametxt.Text = ""
TwoSurnametxt.Text = ""
TwoAgetxt.Text = ""
TwoCareertxt.Text = ""
ThreeNametxt.Text = ""
ThreeSurnametxt.Text = ""
ThreeAgetxt.Text = ""
ThreeCareertxt.Text = ""
MarryNametxt.Text = ""
MarrySurnametxt.Text = ""
MarryAgetxt.Text = ""
MarryCareertxt.Text = ""
NumberChildtxt.Text = ""
SonAmounttxt.Text = ""
DaughterAmounttxt.Text = ""
School1txt.Text = ""
Branch1txt.Text = ""
Since1txt.Text = ""
To1txt.Text = ""
School2txt.Text = ""
Branch2txt.Text = ""
Since2txt.Text = ""
To2txt.Text = ""
School3txt.Text = ""
Branch3txt.Text = ""
Since3txt.Text = ""
To3txt.Text = ""
School4txt.Text = ""
Branch4txt.Text = ""
Since4txt.Text = ""
To4txt.Text = ""
School5txt.Text = ""
Branch5txt.Text = ""
Since5txt.Text = ""
To5txt.Text = ""
Office1txt.Text = ""
OfficeAddress1txt.Text = ""
Begin1txt.Text = ""
End1txt.Text = ""
SumTime1txt.Text = ""
Position1txt.Text = ""
Salary1txt.Text = ""
Reason1txt.Text = ""
JobQuality1txt.Text = ""
CommanderName1txt.Text = ""
PhoneOffice1txt.Text = ""
Office2txt.Text = ""
OfficeAddress2txt.Text = ""
Begin2txt.Text = ""
End2txt.Text = ""
SumTime2txt.Text = ""
Position2txt.Text = ""
Salary2txt.Text = ""
Reason2txt.Text = ""
JobQuality2txt.Text = ""
CommanderName2txt.Text = ""
PhoneOffice2txt.Text = ""
Office3txt.Text = ""
OfficeAddress3txt.Text = ""
Begin3txt.Text = ""
End3txt.Text = ""
SumTime3txt.Text = ""
Position3txt.Text = ""
Salary3txt.Text = ""
Reason3txt.Text = ""
JobQuality3txt.Text = ""
CommanderName3txt.Text = ""
PhoneOffice3txt.Text = ""
TrainningName1txt.Text = ""
TrainBegin1txt.Text = ""
TrainEnd1txt.Text = ""
TrainPosition1txt.Text = ""
TrainQuality1txt.Text = ""
TrainningName2txt.Text = ""
TrainBegin2txt.Text = ""
TrainEnd2txt.Text = ""
TrainPosition2txt.Text = ""
TrainQuality2txt.Text = ""
SpeakThaibox.Text = ""
WriteThaibox.Text = ""
ReadThaibox.Text = ""
SpeakEnglishbox.Text = ""
WriteEnglishbox.Text = ""
ReadEnglishbox.Text = ""
SpeakJapanbox.Text = ""
WriteJapanbox.Text = ""
ReadJapanbox.Text = ""
SpeakChinabox.Text = ""
WriteChinabox.Text = ""
ReadChinabox.Text = ""
Program1txt.Text = ""
Classbox1.Text = ""
Program2txt.Text = ""
Classbox2.Text = ""
Program3txt.Text = ""
Classbox3.Text = ""
TypeWriterThaitxt.Text = ""
TypeWriterEnglishtxt.Text = ""
NoDriver1txt.Text = ""
HaveDriverbox1.Text = ""
NoDriver2txt.Text = ""
HaveDriverbox2.Text = ""
Sport1txt.Text = ""
Sport2txt.Text = ""
Sport3txt.Text = ""
Hobby1txt.Text = ""
Hobby2txt.Text = ""
Hobby3txt.Text = ""
Talenttxt.Text = ""
YesNo1box.Text = ""
ReasonProvincetxt.Text = ""
OutsiderName1txt.Text = ""
OutsiderSurname1txt.Text = ""
OutsiderCareer1txt.Text = ""
Relation1txt.Text = ""
OutsiderAddress1txt.Text = ""
OutsiderPhone1txt.Text = ""
OutsiderName2txt.Text = ""
OutsiderSurname2txt.Text = ""
OutsiderCareer2txt.Text = ""
Relation2txt.Text = ""
OutsiderAddress2txt.Text = ""
OutsiderPhone2txt.Text = ""
QuaranterNametxt.Text = ""
QuaranterSurNametxt.Text = ""
QuaranterCareertxt.Text = ""
Relation3txt.Text = ""
QuaranterAddresstxt.Text = ""
QuaranterPhonetxt.Text = ""
QuaranterOfficetxt.Text = ""
QuaranterPositiontxt.Text = ""
QuaranterOfficeAddresstxt.Text = ""
QuaranterOfficeAddressPhonetxt.Text = ""
YesNo2box.Text = ""
Remark1txt.Text = ""
Informationtxt.Text = ""
YesNo3box.Text = ""
Remark2txt.Text = ""
YesNo4box.Text = ""
RelativeNametxt.Text = ""
RelativeSurnametxt.Text = ""
RelativePositiontxt.Text = ""
Relation4txt.Text = ""
YesNo5box.Text = ""
Remark3txt.Text = ""
Introducetxt.Text = ""
Salarytxt.Text = ""
TimeSincebox.Text = ""
TimeTobox.Text = ""
Bankbox.Text = ""
NoAccounttxt.Text = ""
Point1txt.Text = ""
Point2txt.Text = ""
Point3txt.Text = ""
Point4txt.Text = ""
Point5txt.Text = ""
Point6txt.Text = ""
Point7txt.Text = ""
AddExamtxt.Text = ""
TimesLoantxt.Text = ""
Loantxt.Text = ""
SumLoantxt.Text = ""
TimesWarntxt.Text = ""
TimesFinetxt.Text = ""
SumFinetxt.Text = ""
Mistake1txt.Text = ""
Mistake2txt.Text = ""
Mistake3txt.Text = ""
OutOfficebox.Text = ""
ReasonOuttxt.Text = ""
End Sub
คือว่า ลองพยายามเองแล้ว มันแก้ไม่ได้ ก็เลยต้องมาขอให้เพื่อนๆช่วยอีกแล้วT_TTag : .NET, Ms Access, VB.NET
Date :
2011-04-04 16:37:10
By :
mayapopy
View :
1652
Reply :
9
อ๋อ ลืมบอกไป โปรเจ็คที่แล้ว เสร็จแล้วค่ะ ขอบคุณ
คุณ หางอึ่ง
คุณ kaimuk
คุณ Programmer Of Persia
คุณ 3rds
คุณ mr.win
คุณ termja
คุณ koung_OldTraford
คุณ nut_dev
คุณ Mr.Hikhalu
คุณ angelrings0
คุณ moo
คุณ Nibbāna
ปล. ถ้าตกใครไป ขอโทษด้วยนะคะ ไม่ได้ตั้งใจค่ะ เพราะว่าช่วยกันหลายคน แหะๆ ขอบคุณ ทุกๆคนค่า ตอนนี้ติดโปรเจ็คใหม่
คิดว่า ฝึกละกันเน่อะ อิอิ
Date :
2011-04-04 16:49:01
By :
mayapopy
เย้ ชื่อได้ขึ้นอันดับ 1 อิอิ
Date :
2011-04-04 16:54:55
By :
watcharop
เป็นอย่างนี้นี่เอง ฟิล์ดถึงได้เยอะจัด
Date :
2011-04-04 16:56:08
By :
watcharop
ใช่ค่ะ มันใช้เก็บฐานข้อมูลพนักงาน (เหมือนใบสมัครงาน) นี่ยังไม่ได้ใส่รูปนะเนี๊ย
แต่คิดว่าใส่รูปทำเป็น ในหนังสือมีสอน แต่ยังไม่ได้ทำ^^
Date :
2011-04-04 16:59:42
By :
mayapopy
แถมส่งคำขอบคุณให้ด้วยจ้า
เดี๋ยวจะไล่ส่งให้ทุกคน แต่ส่งได้วันละคน*-*
Date :
2011-04-04 17:01:10
By :
mayapopy
ว่าแต่ คะแนนนี่เอาไว้ทำอะไรหรอ??
Date :
2011-04-04 17:03:38
By :
mayapopy
ยังแก้ไม่ได้เลย มีวิธีผูกข้อมูลแบบอื่นไหมคะ?T_T
Date :
2011-04-05 08:25:22
By :
mayapopy
ทำได้แล้วค่ะ เราซื่อบื้อเอง แหะๆ^^
ขอบคุณค่า
Date :
2011-04-05 11:07:11
By :
mayapopy
Load balance : Server 05