djhooman
دوشنبه 17 فروردین 1394, 01:43 صبح
با سلام و عرض خسته نباشید ....
در بخشی از برنامه نیاز هستش که ما بابت مقدار فیلد عددی که داریم بیایم اون فیلد رو در بین مثلا 10 تا بازه عددی چک کنیم اگر در یکی از اون بازه ها قرار داشت بیاد شرط موجود در اون بازه رو انحام بده .
مثال :
فیلدی داریم به عنوان متراژ زمین
حالا اگر مقدار فیلد متراژ زمین = 500 شد و اگر این مقدار فیلد متراژ بین عدد 400 الی 600 بود ، بصورت خودکار مقدار 10000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 700 شد و اگر این مقدار فیلد متراژ بین عدد 601 الی 750 بود ، بصورت خودکار مقدار 12000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 800 شد و اگر این مقدار فیلد متراژ بین عدد 751 الی 850 بود ، بصورت خودکار مقدار 13000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 900 شد و اگر این مقدار فیلد متراژ بین عدد 851 الی 999 بود ، بصورت خودکار مقدار 14000000 رو در تکست باکس قرار بده .
من خودم با این کد رفتم جلو اما کار نکرد و هر متراژی وارد میشد رو آخرین مقدار رو در تکست باکس درج میکرد . یعنی اگه مثلا مقدار فیلد متراژ 238 بود ، مقدار 8000000 رو انتخاب میکرد که اصلا تو اون بازه قرار نداشتش عدد من !!!!
Dim MetrazhZamin As Integer = Convert.ToInt32(ZaminMetrazhtxt.Text)
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 0 And MetrazhZamin < 100 Then
FinalMablagh.Text = "2000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 101 And MetrazhZamin < 200 Then
FinalMablagh.Text = "4000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 201 And MetrazhZamin < 350 Then
FinalMablagh.Text = "6000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 351 And MetrazhZamin < 500 Then
FinalMablagh.Text = "8000000"
'End If
ممنون میشم راهنمایی کنید
در بخشی از برنامه نیاز هستش که ما بابت مقدار فیلد عددی که داریم بیایم اون فیلد رو در بین مثلا 10 تا بازه عددی چک کنیم اگر در یکی از اون بازه ها قرار داشت بیاد شرط موجود در اون بازه رو انحام بده .
مثال :
فیلدی داریم به عنوان متراژ زمین
حالا اگر مقدار فیلد متراژ زمین = 500 شد و اگر این مقدار فیلد متراژ بین عدد 400 الی 600 بود ، بصورت خودکار مقدار 10000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 700 شد و اگر این مقدار فیلد متراژ بین عدد 601 الی 750 بود ، بصورت خودکار مقدار 12000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 800 شد و اگر این مقدار فیلد متراژ بین عدد 751 الی 850 بود ، بصورت خودکار مقدار 13000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 900 شد و اگر این مقدار فیلد متراژ بین عدد 851 الی 999 بود ، بصورت خودکار مقدار 14000000 رو در تکست باکس قرار بده .
من خودم با این کد رفتم جلو اما کار نکرد و هر متراژی وارد میشد رو آخرین مقدار رو در تکست باکس درج میکرد . یعنی اگه مثلا مقدار فیلد متراژ 238 بود ، مقدار 8000000 رو انتخاب میکرد که اصلا تو اون بازه قرار نداشتش عدد من !!!!
Dim MetrazhZamin As Integer = Convert.ToInt32(ZaminMetrazhtxt.Text)
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 0 And MetrazhZamin < 100 Then
FinalMablagh.Text = "2000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 101 And MetrazhZamin < 200 Then
FinalMablagh.Text = "4000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 201 And MetrazhZamin < 350 Then
FinalMablagh.Text = "6000000"
'End If
If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 351 And MetrazhZamin < 500 Then
FinalMablagh.Text = "8000000"
'End If
ممنون میشم راهنمایی کنید