مشکل در UnderlyingValue - خیلی فوری

[j.farazani]

با سلام خدمت دوستان و اساتید عزیزم
یه سوال خیلی فوری؟
چه طوری میشه UnderlyingValue رو در یک adodc فیلتر و مرتب کرد
یه دنیا محبت می کنید

[sokote_bi_payan]

به نام خدا

با سلام

چی هست این چیزی که گفتید ؟

[j.farazani]

با سلام

dim adoPrimaryRS as new adodb.recordset
adoPrimaryRS.Open "SHAPE {select * from acc.accTLVCHHDR where year = 86 Order by HDRID} AS ParentCMD APPEND ({select itmid,HdrRef ,vchnum debit,credit from acc.acctlvchitm} AS ChildCMD RELATE HDRID TO HdrRef) AS ChildCMD"
, db, adOpenStatic, adLockOptimistic

Dim oText As TextBox
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next


Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue


ببین دوست عزیزم اگه فرض کند سند شما در acc.acctlvchhdr دارای فیلدهایی با نام های شماره سند-تاریخ-شرح باشد و به ازای این سند چهار ردیف در جدول acc.acctlvchitm ایجاد شده باشد آنگاه به datagrid خود نگاه کنید آن چار ردیف را خواهید دید و در textbox ها سه فیلد سند-تاریخ-شرح را مشاهده خواهید نمود حالا اگر بخواهم به سند بعدی بروم با کد زیر ممکن است

adoPrimaryRS.MoveNext

اما اگر بخواهم در همان سند مورد نظر ردیف اقلام سند را در datagrid عوض کنم چه طور باید این کار را بکنم و یا اینکه datagrid را مرتب کنم و......؟؟؟؟؟؟
فکر میکردم یه چیزهایی شبیه به کد زیر باشه اما نمیشه

adoPrimaryRS("ChildCMD").UnderlyingValue

دوستان خواهش می کنم در این زمینه یه کمکی بکنید

یه دنیا ممنون

[RezaS_1354]

با سلام خدمت شما
اگر درست متوجه شده باشم شما میخواهید جای ستون عنوان های که در دیتاگرید نشان میدهد را عوض کنید که اینکار با استفاده از تب colums در properties دیتاگرید امکان پذیر است و همچنین با کد نویسی در لود فرم یک چیزی مثل این ""= DataField.(0).dataField
هرچند فکر کنم شما از wizard ویژوال از گزینه Master\Detail استفاده کردید و فرمهای متصل به دیتا بیس را ساختید که اگر اینکار را انجام دادید بهتر است فرمها را خودتان ایجاد کنید و به دیتا بیس متصل شوید چون کنترل بیشتری بروی کدهاتون دارید بهر حال این هم یک پیشنهاد دوستانه است

[j.farazani]

سلام
ببین دوست عزیزم من میخوام یه چیزی شبیه به تصویر ضمیمه هم برای هدر و هم برای آیتمهام داشته باشم

شرمنده هر کاری که می کنم تصویرم رو attach نمی کنه اگه ممکنه به تصویر واقع در پست 19 تاپیک زیر یه نگاهی بکنید
http://barnamenevis.org/forum/showthread.php?t=93100&page=2

[RezaS_1354]

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

[j.farazani]

سلام رضا جان
از مثال قشنگت ممنون اما مشکل من حل نشد
ببین یه عکس زمیمه میکنم کلیدهای بالا جهت تغییر شماره سند میباشند و کلیدهای پایین جهت حرکت و انجام تغییرات بر روی هر یک از اقلام سند در datagrid من می باشند

فرض کن که من میخوام جستجوم رو روی شماره های سندم که از 1 تا 100 هست انجام بدم اونوقت با کد جستجوی مثال شما امکان پذیره

اما اگر بخوام همون جستجو رو روی اقلام سند شماره 15 که به فرض 200 ردیه هست و در ستون کدمعین انجام بدم چیکار باید بکنم
باید توجه بشه که datagrid من همون طور که در پستهای قبلی گفتم به صورت زیر به recordset من وصل شده

Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue

بازم ممنون

[j.farazani]

دوستان کمک
کسی نیست به ما یه کمکی بکنه والا خیلی گرفتار این قضیه شدم

[j.farazani]

من همچنان منتظرم

واقعا کسی نیست به این مبتدی یه کمکی بکنه

[j.farazani]

یعنی واقعا راهی برای این قضیه وجود نداره؟؟؟

چه قدر بد پس واقعا اینUnderlyingValue با اینکه این همه قابلیت داره قابل استفاده نیست
یا شاید هم اساتید به ما افتخار نمیدهند
اما من نا امید نمیشم میرم دنبالش اگه راهش رو پیدا کردم برای دوستان هم روی همین تاپیک قرار میدم

ولی شما رو به خدا اگه راهی سراغ دارید حتی در حد تئوریک دریغ نکنید

بازم ممنون

[RezaS_1354]

ببین این برنامه مشکلت را حل میکنه ازهمین جا گرفتم

[j.farazani]

سلام
دست شما درد نکنه . اما جواب نداد

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

یه چیزهایی توشون بود اما کامل نبود

بازم ممنون

[j.farazani]

با سلام خدمت همه دوستان عزیزم

راحش رو پیدا کردم براتون میگم . امیدوارم مفید واقع بشه

با در نظر گرفتن توضیحات پست 3 بعد از دستور زیر

Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue


اکنون این دستور زیر را وارد کنید
در بخش general

Dim WithEvents adoPrimaryRSForDataGride As Recordset


ودر formload

set adoPrimaryRSForDataGride =datagrid1.datasource


البته کد سومی باید بعد از کد اولی قرار بگیره

موفق و پیروز باشید

[j.farazani]

دوستان در تایپ کد اشتباه کرده بودم که درست شد