اسکرول دو گرید به صورت همزمان

[علی اکبر]

دوستان سلام
در یک فرم دو گرید دارم که تعداد وسایز ستونهای هر دو یکی است در گرید دوم جمع ستونهای گرید اول وجود دارد
مشکلی دارم وآن اینست که زمانی که گرید اول حرکت واسکرول می شود وبه ستون آخر می رسد ستونها متناظر آن در گرید دوم دیده نمی شود
به نظر شما راهکاری دارد؟

[gm_phk]

با سلام
دوست گرامی از دستورات SQL استفاده نمائید بنظر من مشکل شما حل میشه

[علی اکبر]

یعنی چی؟
مشکل من نمایش وحرکت در گرید فاکس است نه بدست آوردن جمع ویا...

[javad_1349]

دوستان سلام
در یک فرم دو گرید دارم که تعداد وسایز ستونهای هر دو یکی است در گرید دوم جمع ستونهای گرید اول وجود دارد
مشکلی دارم وآن اینست که زمانی که گرید اول حرکت واسکرول می شود وبه ستون آخر می رسد ستونها متناظر آن در گرید دوم دیده نمی شود
به نظر شما راهکاری دارد؟
باسلام
من اين كار را در نرم افزارهاي حسابداري جهت سرفصل كل و معين كل و تفصيلي استفاده كردم كه اتفاقا سه تا گريد وجود دارد
شما بايد در گريد اول در قسمت AFTERROWCOLCHANGE با دستور SELECT و LOCKUP دومرتبه گريد دوم را اسكرول كنيد يعني يك مرتبه ستونهاي آن را با كنترول سورس خالي نماييد و سيستم يا select جديد و قراردادن و نسبت دادن كرسر ستونهاي آن را دومرتبه فعال سازيد بدين صورت در گريد اول در قسمت AFTERROWCOLCHANGE


ThisForm.Grid2.RecordSource=""
ThisForm.Grid2.column1.ControlSource=""
ThisForm.Grid2.column2.ControlSource=""
ThisForm.Grid2.column3.ControlSource=""
ThisForm.Grid2.column4.ControlSource=""
ThisForm.Grid2.column5.ControlSource=""
ThisForm.Grid2.column6.ControlSource=""
ThisForm.Grid2.column7.ControlSource=""
ThisForm.Grid2.Refresh

select table1
into curusre

ThisForm.Grid2.RecordSource="moin"
ThisForm.Grid2.column1.ControlSource="moin.noh"
ThisForm.Grid2.column2.ControlSource="moin.namc"
ThisForm.Grid2.column3.ControlSource="moin.moin"
ThisForm.Grid2.column4.ControlSource="moin.sum_mabbd_a"
ThisForm.Grid2.column5.ControlSource="moin.sum_mabbs_a"
ThisForm.Grid2.column6.ControlSource="moin.mabbd_d"
ThisForm.Grid2.column7.ControlSource="moin.id_no"
البنه ميتوانيد رفرش نيز انجام دهيد
درزمان ديدن شايد كدها جابجا شود متشكرم

[علی اکبر]

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

[javad_1349]

تشکر از شما
اما فکر می کنم من منظورم اشتباه گفتم
ببینید دو تا گرید دارم ومشکل ابدیت اطلاعات داخل گرید دوم وجود ندارد بلکه اسکرول وحرکت کردن گرید متنایب با گرید اول مد نظر است
با سلام
اگر شما با مكانما روي گريد اول حركت كنيد با همان دستوراتي كه گفتم گريد دوم اطلاعات را نشان ميدهد فكر من حالت متناوبي كه فرموديد متوجه نشدم مثال عملي اگر داريد بفرماييد شايد ما هم تجربه مان زياد شود متشكرم

[علی اکبر]

با این دستور مشکل من حل شد
با قرار دادن در afterrowcolchange


_d="thisform.grid2.column"+ALLTRIM(STR(thisform.grid1.ActiveColumn))+".text1.SetFocus"
&_d
thisform.grid1.SetFocus