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

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

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

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

Shadowz كتب:

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

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

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

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

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

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

السلام عليكم

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

vfp1.rar

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

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

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

vfp1.rar

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

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

السلام عليكم

اخي عبد الله

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

تحياتي

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

اخي عبد الله

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

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

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

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

اقتباس

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

نعم

اقتباس

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

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

اقتباس

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

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

مع تحياتي

Shadowz كتب:

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

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

مع تحياتي

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