'ผลลัพธ์หลังจาก เข้า Case True มาแล้ว
Case False
If DS.Tables("category") IsNot Nothing Then
DS.Tables("category").Clear()
End If
SQL = "select catID, catName from tbCategory order by catID"
dsTbl("category")
MsgBox(DS.Tables("category").Rows.Count) ' === 2
If DS.Tables("category").Rows.Count > 0 Then
With LookUpCategory_Edit.Properties
MsgBox(.Columns.Count.ToString) ' === 2
.DataSource = dsTbl("category")
.DisplayMember = "catName"
.ValueMember = "catID"
.PopulateColumns()
MsgBox(.Columns.Count.ToString) ' === 0
.Columns("catID").Visible = False 'ส่วนที่เกิด ERROR เนื่องจาก columns = null
End With
End If
หลังจากเข้า case true มาก่อน มาถึงนี่ยังคง Error เช่นเดิมครับ งงแบบรู้สึกว่าตัวเองโง่มากตอนนี้