|
แก้ไขครั้งสุดท้ายโดย my2alee เมื่อ 2019-8-23 11:51
โหลดมานานแล้ว พอดีวันนี้ว่างๆมาทดสอบหน่อย ติดปัญหา ERROR ตามนี้ครับ อ.
พอกดปุ่ม รายชื่อลูกค้า และกด debug ติดปัญหาที่บรรทัดดังกล่าวครับ
ตรง Sub SetupListView(blnSearch As Boolean)
ฟ้องตรง บรรทัด Set x = lvwCustomer.ListItems.Add(, , RS.Fields(0), 1, 1)
'// นำข้อมูลมาแสดงผลลง ListViewControl
Do While Not RS.EOF
Set x = lvwCustomer.ListItems.Add(, , RS.Fields(0), 1, 1) <== บรรทัดนี้
For i = 1 To RS.Fields.Count - 1
x.SubItems(i) = RS.Fields(i)
Next i
RS.MoveNext
Loop
ขอบคุณครับ
|
ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง
คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน
x
|