[سوال] لیست باکس

[mohsen0025]

سلام
آقا من چه طور میتونم که داخل یه لیست باکس که چند آیتم هست اگه آیتم جدیدی اضافه شد و هم نام بودن دیگه اضافه نشه و همون مبلغی که با اسم دومی هست به اولیه اضاف بشه!!!
مثلاً:
من 2تا لیست باکس دارم تولیست باکس اول اسامی هستن و در لیست باکس دوم مبلغ واریزی هستش. اگه تو لیست اول به طور مثال من:
لیست 1: لیست2:
احمد 2000
حسن 3000
-----
خوب حالا اگه یه احمد دیگه داشتیم میخام اضاف نشه و همون احمد اولی باشه ولی مبلغش اضاف شه
امیدوارم منظورم رو رسونده باشم

[Di Di]

اين كاري كه شما داريد انجام مي ديد كلا خيلي غير استاندارده بهتره اطلاعات داخل يك بانك ذخيره بشن

و يا حداقل براي نمايش اونها از يك گريد استفاده كنيد. اما ...

براي اين كار بايد موقع اضافه كردن گزينه ها به كامبو دو تا كار ديگه هم انجام بديد

1- اول اينكه به ItemDate اون گزينه جديدي كه داريد وارد مي كنيد مبلغ مورد نظر رو اختصاص بديد.

2- قبل از ثبت اطلاعات جديد يك بار كل اطلاعات كامبو رو با استفاده از يك حلقه بخون ببين اطلاعاتت

تكراري نباشه اگر بود،

الف ) مقداري كه در ItemData‌ذخيره كردي رو بريز تو يك متغيير

ب) مبلغ متغيير رو با مبلغ جديد جمع كن و مجددا در ItemData بنويس ( همچنين عنوان اون گزينه رو هم با مبلغ جديد اصلاح كن)

[mohsen0025]

سلام
خوب توی این لیست باکس حدوداً 20 الی 30تا اسم هستش و اگه اسم تکراری دیگه میخام به این لیست اضافه شه همون اسم باشه ولی توی لیست 2 که مبلغ هستش تغییر کنه و هردو رو با هم جمع کنه(این اسامی از داخل Data در دسترس هستن که کاربر اسم مورد نظر را با دابل کلیک انتخاب و در لیست باکس اضافه میکنه) اگه کدی،سورسی چیزی هست مر30 میشم که بزارین.
مر30

[mohsen0025]

سلام
آقا کسی نبود جواب مارو بده؟

[hamed_Arfaee]

سلام
بعد از تائید حرفهای Di Diعزیز.

تو لیست اول بگرد
دو حالت داره
اگر اسم مورد نظر از قبل تو لیست بود :
شماره ردیف همین اسم در لیست دو بروز میشه
اگر اسم مورد نظر در لیست نبود :
اسم به لیست یک و مبلغ به لیست دو اضافه میشه
پایان اما ها و اگر ها .

شبه کد :

کد:

dim strName as string =text1.text
dim strMablagh as sting =text2.text
dim _row as integer=-1
for i =0 to list1.listcount
if list1.list(i)=strName then
_row=i
exit for
next
if _row=-1 then
list1.add(strname)
list2.add(strmablagh)
else
list2.list(_row)=list2(_row)+val(strmablagh)
end if

[mohsen0025]

مر30 ممنون
فهمیدم که چیکار کنم

کد:

Private Function CheckList(Text As String, List As ListBox) As Boolean
CheckList = False
Dim i As Integer
Dim strText As String
For i = 0 To List.ListCount - 1
strText = List.List(i)
Debug.Print strText
If strText = Text Then CheckList = True: Exit Function
Next
End Function

مر30