Printable View
من یک Combo Box دارم که سه تا گزینه داره (مثلا 1 و 2 و 3 ) و یک تکست باکس که مبلغ رو وارد می کنم حالا می خوام وقتی از کامبو باکس 2 انتخاب شد و مبلغ رو وارد کردم مثلا (2000) این مبلغ منفی ثبت بشه یعنی از کل حساب کم بشه
من خودم این کد رو نوشتم
لطفا مشکلش رو بگید
کد:If Combo1.Text = "2" Then DataEnvironment1.rsCommand5!mablagh = -(Text9.Text)
سلام
عزیز جان اول باید نوع String را به Integer یا Long تبدیل کنی.
برنامه نویسان C چون این کار را C به صورت خودکار انجام نمیدهد همیشه حواسشون هست ولی برنامه نویسان VB به علت اینکه VB بیشتر اوقات لطف میکنه و این تبدیلات رو انجام میده در مواقع حساس که VB لطف نمیکنه ! دچار مشکل میشن.
برای تبدیل به Long از دستور CLng و برای تبدیل به Integer از CInt استفاده بکن.
مثلاَ
کد:
X = - CLng(Me.TextBox1.Text)
البته عادت کردن به تبدیل صریح توسط خودتون (مثل خط اول این کد که اگر هم تبدیل صریح نمی کردیم خود VB لطف میکرد و انجام میداد) بسیار عادت خوبیه و بد نیست بدانید که در VB8 میشه با فوق دستور Option Strict On اجبار در تبدیلات را فعال کرد و لطفهای VB را قطع کرد.!
دوست عزیز من اصلا متوجه صحبتهای شما نشدم و فکر می کنم شما هم متوجه سوال من نشدید
من می خوام ببینم کد بالا مشکلش چیه
ممنون
سلام مجدد
منظورم این بود:
البته باید اعتراف کنم اشتباه میکردم.کد:
چون حالا رفتم و امتحان کردن و دیدم که بازم VB6 بدون CLng هم خودش تبدیل ضمنی را درست انجام میدهد و منفی هم میکند. در نتیجه شما احتمالاَ در عبارت DataEnvironment1.rsCommand5!mablagh دچار مشکل هستید (رکوردست تان بازنیست یا نام فیلد را اشتباه تایپ کرده اید و...) مثلاَ این کد زیر را امتحان بکن ببین خطا میدهد یا نه؟
اگر خطا داد پس ایراد همین آخریست که گفتم.
کد:DataEnvironment1.rsCommand5!mablagh = 123
دوست عزیز من به عنوان مثال گفتم 1 و 2 و 3 . داخل Combo من اینا رو داره بدهکار - بستانکار و پرداخت شده . درحالت معمول با انتخاب بستانکار و زدن روی کلید ذخیره مبلغ وارد شده مثبت ثبت می شه . من می خوام با انتخاب بدهکار و زدن روی همون دکمه ذخیره مبلغ وارد شده منفی ثبت بشه
ممنون
سلام مجدد
آقا من دیگه رسماَ کم اوردم! :biggrin:
بنظر می آید درست منظورتان را نگرفتم!
سه حالت داره:
1 - منظورتان اینکه کدی نوشته اید را اجرا میکنید ولی Vb خطا میدهد و برنامه تان را متوقف میکند
در این صورت کد قبلی را که دادم اجرا کنید و ببینید آیا همچنان خطا میدهد؟
2 - منظورتان این است که کدی که نوشته اید درست اجرا میشود ولی کاری را که انتظار دارید انجام نمیدهد.
در این صورت شاید (من از ساختار بانک اطلاعاتی شما مطلع نیستم) کد درست و مورد نظر شما کد زیر باشد که مبلغ جدید را از مجموع قبلی ها کم میکند
3 - هیچ کدام از دو منظور فوق را ندارید، که باید بگویم میبخشید مزاحم شدم، امید وارم کس دیگری کمکتان کند. :sad:کد:
DataEnvironment1.rsCommand5!mablagh = DataEnvironment1.rsCommand5!mablagh - CLng(Text9.Text)
End If
موفق باشید. :)
دوست عزیز ممنون
منظورم دقیقا دومیه کد خودم کار می کنه ولی من می خوام از مجموع حساب کم بشه که نمی شه. کد شما رو هم تست کردم بازم کم نمیشه :sad:
با سلام
يك سوال آيا DE خودش تغييرات رو Update مي كنه يا شما بايد انجام بدي؟
فكر كنم شما بايد انجام بدي تا نتيجه محاسبه ثبت بشه
مرسی عزیز مشکل همون update بود
ممنون
سلام
یه سوال دارم دمتون گرم اگه بلدیدخیلی زود جواب بدید کارم لنگه
سوالم اینه که چطور میتوانم یه برنامه بنویسم که تعداد زیادی برف روی فرم بباره وهر برف وقتی به ته فرم میرسه بروی فرم بنشینه دقت کنید هرچیزیه که در مسیر برف باشه برف روی آن بنشید وتعداد برفها تا وقتی که فرم بسته نشده بباره
منم متوجه سوال نشدم !
یکمی واضح تر بگی ممنونت میشم
من هم با این دوستمون موافقم
کمی توظیح بده