رضا نانوا
شنبه 17 فروردین 1387, 01:22 صبح
با سلام
در فرم مربوط به مشخصات مشتری (در یک برنامه حسابداری) که با جدولی از بانک اطلاعاتی در ارتباط است میخواهیم با وارد کردن کد مشتری بقیه مشخصات وی ظاهر شود که این کار با نوشتن کد زیر قابل اجرا است:
Dim ds AsNew DataSet
Dim SqlStr AsString = ""
If ID_TextBox.Text.Length <> 0 Then
SqlStr = "IDcustomers LIKE '" + ID_TextBox.Text + "'"
Try
mConnection.Open()
mAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Customers Where(" + SqlStr + ")", mConnection)
mAdapter.Fill(ds, "Chap")
If ds.Tables("Chap").Rows.Count = 1 Then
ID_TextBox.DataBindings.Clear()
OffDate_TextBox.DataBindings.Clear()
Debt_TextBox.DataBindings.Clear()
Name_TextBox.DataBindings.Clear()
Family_TextBox.DataBindings.Clear()
Adress_TextBox.DataBindings.Clear()
TelHome_TextBox.DataBindings.Clear()
Mobile_TextBox.DataBindings.Clear()
Have_RadioButton.DataBindings.Clear()
DontHave_RadioButton.DataBindings.Clear()
Description_TextBox.DataBindings.Clear()
Always_RadioButton.DataBindings.Clear()
NoAlways_RadioButton.DataBindings.Clear()
ID_TextBox.DataBindings.Add("Text", ds, "Chap.IDcustomers")
Name_TextBox.DataBindings.Add("Text", ds, "Chap.Name")
Family_TextBox.DataBindings.Add("Text", ds, "Chap.Family")
Adress_TextBox.DataBindings.Add("Text", ds, "Chap.Adress")
TelHome_TextBox.DataBindings.Add("Text", ds, "Chap.TelHome")
Mobile_TextBox.DataBindings.Add("Text", ds, "Chap.Mobile")
Have_RadioButton.DataBindings.Add("Checked", ds, "Chap.Have")
DontHave_RadioButton.DataBindings.Add("Checked", ds, "Chap.DontHave")
Description_TextBox.DataBindings.Add("Text", ds, "Chap.Description")
Always_RadioButton.DataBindings.Add("Checked", ds, "Chap.Always")
NoAlways_RadioButton.DataBindings.Add("Checked", ds, "Chap.NoAlways")
مشکل اینجاست که میخواهیم مبلغ بدهی وی را که از جدول دیگری میباشد در textBoxدیگری نمایش دهد ، نیاز به راهنمایی شما عزیزان دارم . متشکرم
در فرم مربوط به مشخصات مشتری (در یک برنامه حسابداری) که با جدولی از بانک اطلاعاتی در ارتباط است میخواهیم با وارد کردن کد مشتری بقیه مشخصات وی ظاهر شود که این کار با نوشتن کد زیر قابل اجرا است:
Dim ds AsNew DataSet
Dim SqlStr AsString = ""
If ID_TextBox.Text.Length <> 0 Then
SqlStr = "IDcustomers LIKE '" + ID_TextBox.Text + "'"
Try
mConnection.Open()
mAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Customers Where(" + SqlStr + ")", mConnection)
mAdapter.Fill(ds, "Chap")
If ds.Tables("Chap").Rows.Count = 1 Then
ID_TextBox.DataBindings.Clear()
OffDate_TextBox.DataBindings.Clear()
Debt_TextBox.DataBindings.Clear()
Name_TextBox.DataBindings.Clear()
Family_TextBox.DataBindings.Clear()
Adress_TextBox.DataBindings.Clear()
TelHome_TextBox.DataBindings.Clear()
Mobile_TextBox.DataBindings.Clear()
Have_RadioButton.DataBindings.Clear()
DontHave_RadioButton.DataBindings.Clear()
Description_TextBox.DataBindings.Clear()
Always_RadioButton.DataBindings.Clear()
NoAlways_RadioButton.DataBindings.Clear()
ID_TextBox.DataBindings.Add("Text", ds, "Chap.IDcustomers")
Name_TextBox.DataBindings.Add("Text", ds, "Chap.Name")
Family_TextBox.DataBindings.Add("Text", ds, "Chap.Family")
Adress_TextBox.DataBindings.Add("Text", ds, "Chap.Adress")
TelHome_TextBox.DataBindings.Add("Text", ds, "Chap.TelHome")
Mobile_TextBox.DataBindings.Add("Text", ds, "Chap.Mobile")
Have_RadioButton.DataBindings.Add("Checked", ds, "Chap.Have")
DontHave_RadioButton.DataBindings.Add("Checked", ds, "Chap.DontHave")
Description_TextBox.DataBindings.Add("Text", ds, "Chap.Description")
Always_RadioButton.DataBindings.Add("Checked", ds, "Chap.Always")
NoAlways_RadioButton.DataBindings.Add("Checked", ds, "Chap.NoAlways")
مشکل اینجاست که میخواهیم مبلغ بدهی وی را که از جدول دیگری میباشد در textBoxدیگری نمایش دهد ، نیاز به راهنمایی شما عزیزان دارم . متشکرم