---

บทความ : การสร้าง Table แบบ dynamic

Option Explicit
Dim row,numTD

Dim iLoop,kLoop

CONST allData = 19 'จำนวนข้อมูล
CONST column = 2  'จำนวน หลัก
row = 0
numTD = 0

If allData mod column > 0 Then

row = (allData/column)+1

Else

row = allData/column

End if

Response.Write ""

For iLoop = 1 To row

Response.Write "

"

For kLoop = 1 To column

numTD = numTD+1

Response.Write "

"

Next

Response.Write "

"

Next

Response.Write "

"   If numTD > allData Then Response.wRite " " Else Response.Write numTD End if Response.Write "

"

 

 

 

หากชอบบทความนี้ กดให้ค่ากาแฟที่นี่ครับ

---

ฝากติดตามผลงานด้านล่างด้วยครับ

--------------------------
► Website : https://www.siamfocus.com/
► LINE@ : https://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Instagram : https://www.instagram.com/iamtaam
--------------------------

---