 |
| |
เมื่อคลิกใน DataGridview แล้วข้อมูลในฟอร์มไม่เปลี่ยนตามอะคับ |
| |
 |
|
|
 |
 |
|
ผมทำฟอร์มอื่นก็ได้นะคับ แต่ทำไมฟอร์มนี้ไม่ได้ซะงั้น ช่วยดูให้ทีคับ
เมื่อคลิกที่ 0007 ข้อมูลของ 0007 ไม่โชว์ในฟอร์มอะคับ
เวลาคลิกที่ |< < > >| ก็เหมือนกันมันไม่มีปฏิกิริยาเลยคับ นี่เป็น Code
Code (VB.NET)
'กำหนดการเลื่อนตำแหน่ง
Sub ShowPosition()
currentRecord = Me.BindingContext(ds, "Member").Position + 1 'กำหนดคุณลักษณะในการแสดงหน้าข้อมูล
recordCount = Me.BindingContext(ds, "Member").Count 'นับจำนวานหน้าข้อมูลทั้งหมด
'กำหนดการแสดงของ Label เป็น "ลำดับที่"/"จาก"
lblrecord.Text = "ลำดับที่:" & currentRecord.ToString & "/" & " จาก:" & recordCount.ToString
End Sub
'แสดงหน้าข้อมูลแต่ละหน้า
Sub ShowRecord()
Dim sqlMember As String = "SELECT*FROM Member ORDER BY Member_id ASC" 'เรียกดูข้อมูลทั้งหมดจากตาราง student
ds.Tables("Member").Clear() 'ทำการเคลียร์ข้อมูลเดิมก่อนเรียกข้อมูลใหม่
da.SelectCommand.CommandText = sqlMember 'ส่งค่าคำสั่ง sql ให้กับ dta
da.Fill(ds, "Member")
dt = ds.Tables("Member")
dgvmem_detail.DataSource = ds.Tables("Member")
If ds.Tables("Member").Rows.Count <> 0 Then
'เรียกใช้งานคำสั่งที่กำหนดไว้
Call Clrallbinding() 'ทำการยกเลิกการผูกติดเดิมก่อนการสร้างการผูกติดครั้งใหม่
Call MakeAllBinding() 'ทำการผูกติดข้อมูลกับ control บนหน้าจอ
Call ShowPosition() 'เลื่อนตำแหน่งของข้อมูลในแต่ละ Record
Call Locked() 'เรียกใช้งาน locked
End If
Code (VB.NET)
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
'เลื่อนตำแหน่งไปยัง ตำแหน่งแรกสุด
Me.BindingContext(ds, "Member").Position = 0
Call ShowRecord()
End Sub
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
'เลื่อนตำแหน่งไปยัง ก่อนหน้านี้
Me.BindingContext(ds, "Member").Position -= 1
Call ShowRecord()
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
'เลื่อนตำแหน่งไปยัง หน้าถัดไป
Me.BindingContext(ds, "Member").Position += 1
Call ShowRecord()
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
'เลื่อนตำแหน่งไปยัง หน้าสุดท้าย
Me.BindingContext(ds, "Member").Position = ds.Tables("Member").Rows.Count - 1
Call ShowRecord()
End Sub
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-07-09 14:42:25 |
By :
adunafah |
View :
3456 |
Reply :
6 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ผมไม่เห็นคุณแฮนเดิล event cell click เลยแล้วข้อมูลมันจะเปลี่ยนได้ไง
เอานี่ไปดู แต่อันนี้ใช้ cell double click https://www.thaicreate.com/dotnet/forum/042917.html
แต่เหมือนกัน ก็พอ id แล้วก็เอา id ไป query เพื่อ bind ให้ control อื่นๆ
|
| |
|
|
| |
| Date :
2010-07-09 20:13:12 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมไปลองละครับ มัน error ตรง detailform(ID) อะคับ ว่า "Type 'DetailForm' is not defined. "
คือไรอะคับ ไม่เข้าใจเลย ขอแบบตรงๆเลยคับ
|
| |
|
|
| |
| Date :
2010-07-10 02:02:35 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อ้าว ลอกไปตรงๆ ซะงั้น
อันนั้นมันเอา id ไป open form น่ะ ต้องเอาไปดัดแปลงนิดนึง
ที่สำคัญคือ id ที่ได้จาก datagridview ไป
ซึ่งสามารถเอา event และ id นี้ไป bind data ให้ control อื่นได้
|
| |
|
|
| |
| Date :
2010-07-10 10:55:21 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
'ผูกติดข้อมูลใน DataGridview กับคอนโทล
With dgvmem_detail
txtmember_id.Text = .Rows(e.RowIndex).Cells(0).Value
dtpbirth.Text = .Rows(e.RowIndex).Cells(1).Value
txtnation.Text = .Rows(e.RowIndex).Cells(2).Value
cboprefix.Text = .Rows(e.RowIndex).Cells(3).Value
txtname.Text = .Rows(e.RowIndex).Cells(4).Value
txtnumber.Text = .Rows(e.RowIndex).Cells(5).Value
txtaddr.Text = .Rows(e.RowIndex).Cells(6).Value
cbostatus.Text = .Rows(e.RowIndex).Cells(7).Value
cbocareer.Text = .Rows(e.RowIndex).Cells(8).Value
txtPhone.Text = .Rows(e.RowIndex).Cells(9).Value
cbotype_card.Text = .Rows(e.RowIndex).Cells(10).Value
txtidcard.Text = .Rows(e.RowIndex).Cells(11).Value
dtpstcard.Text = .Rows(e.RowIndex).Cells(12).Value
dtpfincard.Text = .Rows(e.RowIndex).Cells(13).Value
End With
ผมทำมาอย่างนี้อะคับ เวลาคลิกบางครั้งก็เปลี่ยน บางครังก็ไม่เกิดอะไรอะคับ
ส่วนพวก |< < > >| อันยังไม่ได้เลยอะคับคลิกแล้วนิ่งสนิท ช่วยดูให้หน่อยคับ
|
| |
|
|
| |
| Date :
2010-07-13 20:38:43 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อันนี้ผม binding กับ textbox นะครับ
Code (VB.NET)
textbox1.DataBindings.Clear()
textbox1.DataBindings.Add("text", ds, "ชื่อtable.ชื่อfield")
|
| |
|
|
| |
| Date :
2010-07-13 22:41:28 |
By :
noptalent |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผม Binding ข้อมูลได้ละคับ แต่ว่า ปุ่มเลื่อนตำแหน่งอะคับยังไม่ได้เลย คับ
|
| |
|
|
| |
| Date :
2010-07-14 19:53:29 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
