Sub ShowGrid()
BindGrid("FEVGRDCD is not null ORDER BY FEVGRDCD")
End Sub
ซึ่งพอโยงที่Class
Code (VB.NET)
Public Function Selected(ByVal stringCondition As String) As DataTable
'Dim ds As DataSet = db.Selected(tbl_name, "FEVGRDCD, FEVGRDDS, FEVGRDSCS,FEVGRDSCS,FEVGRDSCE,FEVSCORERE,FEVPAR,FEVPQCASE1,FEVPQCASE2 CASE WHEN FNOTUSE = 'N' END AS FNOTUSE ", stringCondition)
Dim ds As DataSet = db.Selected(tbl_name, "FEVGRDCD, FEVGRDDS, FEVGRDSCS,FEVGRDSCS,FEVGRDSCE,FEVSCORERE,FEVPAR,FEVPQCASE1,FEVPQCASE2 CASE WHEN FNOTUSE = 'N' END AS FNOTUSE", stringCondition)
Dim dt_result As DataTable = ds.Tables(0)
'//return insert result
Return dt_result
End Function
ก็เกิดErrorตามภาพพอมาไล่โค้ดดูไม่แน่ใจว่าติดที่อะไร
ยังไงรบกวนผู้รู้หน่อยนะค่ะ ว่ามันผิดตรงส่วนไหน หาวิธีแล้วไม่เจอจริงๆ
บอกแนววิธีก็ได้ค่ะ ขอบคุณค่ะ ทำเป็นแบบ web App นะคะ
Tag : Ms SQL Server 2012, JavaScript, Web (ASP.NET), VB.NET
Dim ds As DataSet = db.Selected(tbl_name, "FEVGRDCD, FEVGRDDS, FEVGRDSCS,FEVGRDSCS,FEVGRDSCE,FEVSCORERE,FEVPAR,FEVPQCASE1,FEVPQCASE2 CASE WHEN FNOTUSE = 'N' END AS FNOTUSE", stringCondition)
Dim dt_result As DataTable = ds.Tables(0)