سلام ، فکر کنید یه دیتا گرید داریم که چند تا ستون داره
حالا یکی از این ستون ها که توی اون شماره تلفنه رو چطوری میشه به یه لیست باکس انتقال داد ؟
سلام ، فکر کنید یه دیتا گرید داریم که چند تا ستون داره
حالا یکی از این ستون ها که توی اون شماره تلفنه رو چطوری میشه به یه لیست باکس انتقال داد ؟
آخرین ویرایش به وسیله star_star : جمعه 19 آبان 1391 در 16:07 عصر
کسی تا حلال اینکارو انجام نداده ؟ کسی نمبتونه کمک کنه ؟
سلام
دو راه داری:
1- استفاده از DBList
2- با یه حلقه:
For i=0 to data1.recordset.recordsource
list1.additem data1.recordset.fields(2)
next
با این کد اطلاعات فیلد سوم به لیست باکس اضافه میشن.
آقا این روش شما که کار نمیکنه !!!!!!!!!!!!!!
بذارید واضح تر توضیح بدم ، من یه دیتا گرید دارم که به دیتا بیسم وصله
حالا یه قسمت سرچ براش گذاشتم ، ما میایم مثلا اسم علی رو سرچ میکنیم ، دیتا گرید تمام اسم هایی که علی هستش رو نشون میده و توی یه ستون دیگه شماره های تماسشون رو میاره
حالا من میخوام تمام این شماره ها رو وارد یه لیست باکس کنم !!!
ببخشید یه اشتباه کوچولو داشتم، چون سریع نوشتم، بفرما:
For i=0 to data1.recordset.recordCount-1
list1.additem data1.recordset.fields(2)
next
خب این کد هم همین کار رو میکنه، شما میای جستجو رو با recordsource محدود میکنی، بعد با این کد میای اطلاعات یه فیلد خاص رو توی لیست باکس اضافه میکنی. اگه از DbList استفاده کنی نازی به کدنویسی نداری.
نخیرآقا منظورت از data1 همون DataGrid هست دیگه ؟
خب عزیز من فرقی نداره که کافیه Data1 رو به Adodc1 تغییر بدی. من برای مثال از کنترل دیتا استفاده کردم.
شما اصلا برای دیتاگرید نیاز نیست کدی بنویسید. با این کد مستقیما با کنترل دیتا کار میکنی.
بله درسته اما کد یه مشکلی داره اونم اینه که فقط میاد یه فیلدو وارد لیست باکس میکنه !!!!
عکس ضمیمه کردم ، همه شماره ها مثله هم هستن
Untitled.jpg
بله مشکل از من بود، چون کد رو عجله ای مینویسم.
شما باید خودتون بدونید دیگه بعد از خوندن هر رکورد باید رکورد رو به بعدی منتقل کنیم. یعنی بعد از اضافه کردن به لیست کد زیر رو بنویس، قبل از Next
Adodc1.Recordset.MoveNext
سلام دوستان کسی میدونه چطوری در یک دیتا گرید یک لیست بیاوریم ینی ستون اول دیتا گرید ویو وقتی اینتر کردم لیست باز شه
دوست عزیز
p=text1.text
For i=0 to data1.recordset.recordCount-1
text1.text=i
list1.additem p
next i
از این روش استفاده کن اول فیلد رو وارد تکست می کنه بعد به لیست اضافه می کنه