كيفية انشاء مسلسل في الجدول

[foxpro9 0]

السلام عليكــم ورحمـة الله وبركاتــه ،،

ماهي الطريقة لانشاء مسلسل ارقام في جدول مثلا لدي جدول اريدان ادخل به مسلسل ارقام من 1 الى 1000

ماهو الكود الذي يولد لي هذا المسلسل في الجدول وشكرا لكم

[a.jallad 75]

وعليكــم السـلام ورحمة الله وبركاتـه..

جرب الكود التالي

CREATE CURSOR MyTable (Id i(4) AUTOINC , No i(4))
for i = 1 to 1000
	INSERT INTO MyTable (No) VALUES (I)
next

[foxpro9 0]

وعليكــم السـلام ورحمة الله وبركاتـه..

جرب الكود التالي

CREATE CURSOR MyTable (Id i(4) AUTOINC , No i(4))
for i = 1 to 1000
	INSERT INTO MyTable (No) VALUES (I)
next

شكراً لك اخي الكريم

ماشاء الله جربت الكود وقد نفع بارك الله فيك

[jawadfrhad 0]

بسم الله الرحمن الرحيم

السلام عليكم

اخي العزيز اعتقد ان الاخ عبد الله قد شرح بشكل وافي . ولكن هناك ملحوظه انه تم استخدام CURSOR ولكن اذا اردت ان تستخدم الملف اليك المثال التالي . وللعلم اني اطرح هذا المثال لكي يصبح لديك خيارات في البرمجة اضافة الى مثال الاخ عبد الله اتمنى ان يفيدك

vfp1.rar

تم تعديل 27 Sep 2009 بواسطه jawadfrhad

[a.jallad 75]

اخي العزيز جواد.... أتمنى أن تتقبلنــــــــــــــــــــــي بصدر رحب ( ماشي :wink: )

شكراً على مداخلتك.. أتمنى أن تجرب المرفق وتخبرني رأيك...

أخي foxpro9 سلمت وبارك الله فيك

vfp1.rar

العزيز جواد...العفو، تم تعديل المرفق..

تم تعديل 28 Sep 2009 بواسطه Shadowz

[jawadfrhad 0]

بسم الله الرحمن الرحيم

السلام عليكم

اخي عبد الله

اعتقد ان form2.scx ما موجود ممكن تحميله ... :huh:

تحياتي

[jawadfrhad 0]

بسم الله الرحمن الرحيم

اخي عبد الله

انت تقصد الفترة الزمنية؟؟؟؟ عفوا اخي انا نص كلامي هو((وللعلم اني اطرح هذا المثال لكي يصبح لديك خيارات في البرمجة ))

هذا كان المقصود

اما بالنسبة للفترة الزمنية نعم وبكل تاكيد!!!!!!!!!!

[a.jallad 75]

وعليكــم السـلام ورحمة الله وبركاتـه..

انت تقصد الفترة الزمنية؟؟؟؟

نعم

((وللعلم اني اطرح هذا المثال لكي يصبح لديك خيارات في البرمجة )) هذا كان المقصود

أعلم، ورددت عليك لأني أعلم أنك Fox professional وحبيت أستفزك B) على أمل يصير شوية Action في المنتدى النايم

اما بالنسبة للفترة الزمنية نعم وبكل تاكيد!!!!!!!!!!

أنت تعلم، ولكن ليعلم غيرك ويستفيد وهذا هو المقصود

مع تحياتي

[roi_yassin 0]

وعليكــم السـلام ورحمة الله وبركاتـه..

أنت تعلم، ولكن ليعلم غيرك ويستفيد وهذا هو المقصود

مع تحياتي

If File("matable.dbf")=.T.
	Select 1
	Use
	Delete File matable.*
Endif
Create Table matable (Id N(10), dat d(8), Time c(10))
Use
Select 1
Use matable
For i=1 To 100000
	Append Blank
	Replace Id With i;
		dat With Date();
		time With Time()
Endfor