n سطر در 4 ستون

[internet2]

سلام
اگر بخواهم روکورد های دیتابیس Access را نمایش دهم و فقط فیلد id که کلید اصلی است و Autonumber می باشد روی صفحه چاپ شود

مثلا یک جدول مثل جدول روزهای ماه ( تقویم) نمایش داده شود و رکورد یکه که id 1 می باشد در سر اول در ستون اول، id 2 در سطر اول و ستون دوم و ... نمایش داده شود


چگونه است

یک مثال تصویری پیوست می باشد

[mosyhey]

یک مثال می زنم. در این مثال متغیر id_int تعداد ID های شماست که بایستی نشان داده شود (در این مثال 18 تا) و متغیر sotoon_int نیز تعداد ستون هاست (در این مثال 4 تا) که هر دو را هر چه خواستید تنظیم کنید.
در این مثال اعداد کنتور c1_int در خط 15 در خانه های جدول چاپ می شود که بایستی این تکه را عوض کنید.

<%

Dim id_int

Dim sotoon_int

Dim c1_int

Dim c2_int

id_int=18

sotoon_int=4

c1_int=1

Response.Write("<table border='1'>")

Do While c1_int<=id_int

	Response.Write("<tr>")

	For c2_int=1 to sotoon_int

		Response.Write("<td>")

		If c1_int<=id_int Then

			Response.Write(c1_int)

		End If

		Response.Write("</td>")		

		c1_int=c1_int+1

	Next

	Response.Write("</tr>")

Loop

Response.Write("</table>")

%>