 |
| |
ช่วยดูโค๊ตในการผูกข้อมูล คอมโบบ็อก กับ เท็กบ็อก ทีค่ะช่วยทีนะคะ |
| |
 |
|
|
 |
 |
|
ช่วยดูโค๊ตในการผูกข้อมูล คอมโบบ็อก กับ เท็กบ็อก ทีค่ะช่วยทีนะคะ
ฟอมที่ 1
fromfirst
ฟอมที่ 2
from
ฟอมที่ 1 จะทำการบันทึกหมายแจ้งโทษ ซึ่งในหมายแจ้งโทษจะมีคดี เมื่อทำการบันทึกเส็จแล้ว ต้องการให้ชื่อคดีทั้งสามตามรูปที่ 1 ไปแสดงที่คอมโบบ็อก ของฟอมที่ 2 ค่ะ เมื่อเลือกคดีในคอมโบบ็อกในฟอมที่ 2 ให้ทำการบันทึกพึดติการประจำคดีนั้นในเท็กบ็อกพึดติการ และบันทึกให้ครบทุกคดี ถ้ากลับไปคลิกเลือกคดีในคอมโบบ็อกอันที่มีพึดติการแล้วคือบันทึกไว้แล้วก็ ให้ข้อความที่บันทึกแสดงที่เท็กบ็อกพึดติการอ่ะค่ะ ถ้าคดีใหนที่เพิ่มเข้ามาใหม่แล้วยังไม่มีข้อความพึดติการ หนูต้องการให้เท็กบ็อกนั้นว่าง แล้วพิมและบันทึกข้ความของคดีนั้นเข้าไปอ่ะค่ะ ต้องทำไงคะ เขียนโค๊ตยังไง ช่วยบอกหนูที
ตรงนี้เป็นโค๊ตที่ให้แสดงคดีในคอมโบบ็อกแล้วต้องทำไงต่คะ
from_load
sb.Remove(0, sb.Length)
sb.Append("SELECT LAWSUIT.LawsuitID,CASES.Case_Name,LAWSUIT.PID")
sb.Append(" FROM LAWSUIT,CASES ")
sb.Append(" WHERE (LAWSUIT.CaseID=CASES.CaseID) ")
sb.Append(" AND (LAWSUIT.PID=@PID) ")
Dim sql As String = sb.ToString()
com = New SqlCommand()
With com
.CommandType = CommandType.Text
.CommandText = sql
.Connection = Conn
.Parameters.Add("@PID", SqlDbType.NVarChar).Value = CStr(FormAdd.txtPid.Text)
dr = .ExecuteReader()
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
ComboFeature.DataSource = dt
ComboFeature.ValueMember = "LawsuitID"
ComboFeature.DisplayMember = "Case_Name"
Else
ComboFeature.DataSource = Nothing
End If
End With
dr.Close()
ฟอมที่ 2 มีฐานข้อมูลดังนี้ค่ะ
BEHAVIORS
BehaviorID integer,
LawsuitID integer,
DetailsBehavior nvarchar
ลองทำที่ event SelectedIndexChanged ของ combobox เพื่อจะให้โชวข้อควมที่ textbox แต่ก็ยังไม่ได้ค่ะต้องทำไงคะ
Dim sqll As String = "SELECT LawsuitID FROM BEHAVIORS "
Dim value As String = ComboFeature.SelectedValue.ToString()
If value = sqll Then
sb.Remove(0, sb.Length)
sb.Append("SELECT LawsuitID,DetailsBehavior")
sb.Append(" FROM BEHAVIORS ")
sb.Append(" WHERE (BEHAVIORS.LawsuitID=@value1) ")
Dim sqlv As String = sb.ToString()
com = New SqlCommand()
With com
.CommandType = CommandType.Text
.CommandText = sqlv
.Connection = Conn
.Parameters.Add("@value1", SqlDbType.NVarChar).Value = ComboFeature.SelectedValue
dr = .ExecuteReader()
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
txtDetailsBehavior.DataBindings.Add("Text", dt, "DetailsBehavior")
Else
txtDetailsBehavior.Text = ""
End If
End With
dr.Close()
End If
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-07-16 02:16:11 |
By :
่jdai |
View :
1542 |
Reply :
4 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
bind Combo
ComboFeature.DataSource = dt
ComboFeature.ValueMember = "LawsuitID"
ComboFeature.DisplayMember = "Case_Name"
SelectedIndexChanged
Dim sqll As String = "SELECT LawsuitID FROM BEHAVIORS "
Dim value As String = ComboFeature.SelectedValue.ToString()
If value = sqll Then
ดูจากนี่ผมว่ามันไม่มีทางเท่ากันหรอก
|
| |
|
|
| |
| Date :
2010-07-16 12:33:37 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แล้วต้องแก้ไงคะ
คิดไม่ออกจิงๆๆ
|
| |
|
|
| |
| Date :
2010-07-16 16:53:59 |
By :
jdai |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมว่าสงค่าให้ฟอร์ม 2 ทีละอันตามที่เลือกใน datgridview ไม่ดีกว่าเหรอครับ
เพราะถ้ามี 10 คดีแล้วฐานความผิดเป็น ยาเสพติดทั้งหมด
combobox ฟอร์ม 2 มันก็มีแต่ยาเสพติด 10 อันจริงหรือไม่ครับ(ล้วงลับตับแตกนี่หว่า)
หรือผมเข้าใจผิดยังไงก็ขอสุมา ณ ที่นี้โตย
|
| |
|
|
| |
| Date :
2010-07-16 17:11:06 |
By :
noptalent |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ประมาณนี้ป่าว ต้องการเอาฐานความผิด มาเเสดงให้ combobox ใน from2
ถ้างั้น ตอน SELECT ก็สั้ง GROUP BY ความผิดฐานซะ ก็ได้นิคับ ไม่มีปัญหาการซ้ำ
ก่อน จะ SELECT ค่าก็สั้ง CLEAR TEXTBOX ก่อนทุกครั้งนะคับ มันจะได้ว่าง
ส่วนคำสั้งตรวจสอบค่าว่างก็
Code (VB.NET)
If IsDBNull(DataSet("ตัวที่ทำการ SELECT ค่าออกมาจาก DATABASE นะคับ")) = False Then
TEXTBOX.Text = CStr(DataSet("ตัวที่ทำการ SELECT ค่าออกมาจาก DATABASE นะคับ"))
End If
ถูกประเด็นอะป่าว ดึกเเล้ว อ่านละ ตาลายยยย
|
| |
|
|
| |
| Date :
2010-07-19 00:59:12 |
By :
EucifeR |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
