سلام
آقا من چه طور میتونم که داخل یه لیست باکس که چند آیتم هست اگه آیتم جدیدی اضافه شد و هم نام بودن دیگه اضافه نشه و همون مبلغی که با اسم دومی هست به اولیه اضاف بشه!!!
مثلاً:
من 2تا لیست باکس دارم تولیست باکس اول اسامی هستن و در لیست باکس دوم مبلغ واریزی هستش. اگه تو لیست اول به طور مثال من:
لیست 1: لیست2:
احمد 2000
حسن 3000
-----
خوب حالا اگه یه احمد دیگه داشتیم میخام اضاف نشه و همون احمد اولی باشه ولی مبلغش اضاف شه
امیدوارم منظورم رو رسونده باشم
اين كاري كه شما داريد انجام مي ديد كلا خيلي غير استاندارده بهتره اطلاعات داخل يك بانك ذخيره بشن
و يا حداقل براي نمايش اونها از يك گريد استفاده كنيد. اما ...
براي اين كار بايد موقع اضافه كردن گزينه ها به كامبو دو تا كار ديگه هم انجام بديد
1- اول اينكه به ItemDate اون گزينه جديدي كه داريد وارد مي كنيد مبلغ مورد نظر رو اختصاص بديد.
2- قبل از ثبت اطلاعات جديد يك بار كل اطلاعات كامبو رو با استفاده از يك حلقه بخون ببين اطلاعاتت
تكراري نباشه اگر بود،
الف ) مقداري كه در ItemDataذخيره كردي رو بريز تو يك متغيير
ب) مبلغ متغيير رو با مبلغ جديد جمع كن و مجددا در ItemData بنويس ( همچنين عنوان اون گزينه رو هم با مبلغ جديد اصلاح كن)
سلام
خوب توی این لیست باکس حدوداً 20 الی 30تا اسم هستش و اگه اسم تکراری دیگه میخام به این لیست اضافه شه همون اسم باشه ولی توی لیست 2 که مبلغ هستش تغییر کنه و هردو رو با هم جمع کنه(این اسامی از داخل Data در دسترس هستن که کاربر اسم مورد نظر را با دابل کلیک انتخاب و در لیست باکس اضافه میکنه) اگه کدی،سورسی چیزی هست مر30 میشم که بزارین.
مر30
سلام
آقا کسی نبود جواب مارو بده؟
سلام
بعد از تائید حرفهای 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
مر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