ผู้เขียน หัวข้อ: ตาราง SGGrid vb6  (อ่าน 135 ครั้ง)

ออฟไลน์ yukeeplee

  • Newbie
  • *
  • กระทู้: 9
ตาราง SGGrid vb6
« เมื่อ: กุมภาพันธ์ 24, 2017, 11:28:08 am »
อาจารย์ครับสอบถาม
1.การเพิ่มแถวและลบแถว ที่ละแถวตาราง SGGrid vb6 ด้วยเหตุการณ์กดปุ่ม Button

2. (ถ้าเป็นไปได้)การแทรกปุ่ม Button ให้แสดงในแต่ละแถวของตาราง SGGrid vb6 ...
ขอบคุณครับ

บันทึกการเข้า

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
Re: ตาราง SGGrid vb6
« ตอบกลับ #1 เมื่อ: มีนาคม 20, 2017, 01:25:36 pm »
ขออภัยที่มาตอบให้ช้าครับ ป่านนี้คงหาคำตอบได้แล้วมั้ง 5555+ ...

'// ตัวแปรโฟกัสแถว
Dim SGRow As Integer

Private Sub cmdAddRow_Click()
    '// นับแถวเพิ่มขึ้นอีก 1 ก่อน
    SGRow = SGGridData.DataRowCount + 1
    '// จากนั้นค่อย Insert แถวเข้าไป
    SGGridData.Rows.InsertAt SGRow, sgFormatCharSeparatedValue, ""
End Sub

Private Sub cmdRemoveRow_Click()
    If SGGridData.DataRowCount = 0 Then Exit Sub
    '// หาแถวที่ถูกโฟกัสอยู่
    SGRow = SGGridData.Row
    '// หา Key แถวที่มันอยู่ก่อนที่จะลบได้
    SGRow = SGGridData.Rows.At(SGRow).Key
    '// ลบแถวที่ถูกโฟกัสออกไปตามค่า Key
    SGGridData.Rows.Remove SGRow
End Sub

หรือเอาแบบ Full Source Code การเพิ่มและลบแถวในตารางกริด SharpGrid ActiveX

บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

ออฟไลน์ yukeeplee

  • Newbie
  • *
  • กระทู้: 9
Re: ตาราง SGGrid vb6
« ตอบกลับ #2 เมื่อ: มีนาคม 21, 2017, 08:02:39 am »
ขอขอบพระคุณอาจารย์ท้องก้อนเป็นอย่างสู่งครับ

บันทึกการเข้า