جدول MSFlexGrid

[dimomid]

با سلام خدمت دوستان عزیزم
یه سوال برام پیش اومده اگه کسی میتونه بهم کمک کنه ممنون میشم

سوالم اینه
من جدولی دارم برای نمایش فیلدهام که در دبیرخانه ذخیره میکنم
و از MSFlexGrid استفاده کردم
میخوام کدی داشته باشم که نامه هام رو بصورت آخرین نامه ذخیره شده نشون بده
و همینطور به ترتیب یعنی اگه شماره نامه ای 233 هست و ذخیره میشه در اولین ردیف
جدول MSFlexGrid در برنامه ام نمایش داده بشه و قبلشم که نامه شماره 222 -221-220 رو زیر هم نمایش بده
چون در جدولم شماره های یک رو زیز هم دو رو زیر هم ذخیره میکنه یهنی1 و 11 و111 رو زیر هم ردیف میکنه

ممنون میشم اگه راهنمایی ام کنید
البته طرز نوشتن کدشو اگه امکان داره برام بزارید
ممنون
آفتابی باشید

[dimomid]

دوستان عزيز كسي نتونست پاسخي به من بده
لطف كنيد اگر كس ميتونه كمكم كنه ممنون ميشم.

[takkhal]

دوست عزیر شما کار سختی نداری کافیه جدول رو بر اساس اون ستونی که می خوای از بزرگ به کوچیک مرتب کنی
اگه توضیح بیشتری لازمه بگو یا نمونه بذار

[dimomid]

سلام
اگه لطف کنی و یک نمونه بزاری ممنون میشم خیلی لطف کردی

[moghadam1372]

با سلام خدمت دوست عزیز وگرامی
اگراز جدول از vsflex استفاده کن دیتا رو بایند کن
exploere bar = 2 بزار وبعد برروی هریک از سرفصل های جدول کلیک کنی ردیف می شود
visualdata=true

[dimomid]

سلام بزرگوار
متاسفم زياد متوجه نشدم ميشه يه نمونه برام بزاري ممنون ميشم

[mohsen_iceman2000]

سلام دوست خوب ، شما باید از دستور Order واسه مرتب کردن استفاده کنی ، از بانک sql استفاده می کنی یا access /

زمانی که فرم load می شه هنگامی که اطلاعات رو واسه جدولت می خواد بیاره باید بزنی Order DESC اگه نمونه کد بزاری واست اصلاحش می کنم

[dimomid]

سلام
این کد جدوله اگه اصلاحش کنید ممنون میشم



While dg.Rows > 1
dg.Rows = dg.Rows - 1
Wend
Data1.Refresh
While Data1.Recordset.EOF = False
dg.Rows = dg.Rows + 1
dg.TextMatrix(dg.Rows - 1, 0) = Data1.Recordset.Fields(0).Value
dg.TextMatrix(dg.Rows - 1, 1) = Data1.Recordset.Fields(1).Value
dg.TextMatrix(dg.Rows - 1, 2) = Data1.Recordset.Fields(2).Value
dg.TextMatrix(dg.Rows - 1, 3) = Data1.Recordset.Fields(3).Value
dg.TextMatrix(dg.Rows - 1, 4) = Data1.Recordset.Fields(4).Value
dg.TextMatrix(dg.Rows - 1, 5) = Data1.Recordset.Fields(5).Value
Data1.Recordset.MoveNext
Wend
End Sub

[dimomid]

كسي نيست بهم كمك كنه كدشو گذاشتم لطفا كمكم كنيد