عملیات روی ستونهای دیتاگرید

[kashir]

سلام

فرض میکنیم سه ستون 1 و 2 و 3 داریم
میخوام داده های ستون 1 را با 2 جمع کنم و در 3 بریزم یعنی مثلا با زدن یه دکمه بشه تمامی داده ها را تبدیل کرد
جواب بدین ممنون میشم
(جستجو کردم چیزی پیدا نکردم)

[nosrati1363]

سلام
من از این جور سوال ها خیلی خوشم میاد چون برای اولین با پرسیده میشن:کف:
اولا این عملیات روی سطرهاست اگر اشتباه نکنم . و باید بگم خیلی ساده است

اگه میخوای این کارو با یک button انجام بدی کافیه بنویسی


dim sum1=(dgv.rows(index).cell(0).value) + (dgv.rows(index).cell(1).value)
dgv.rows(index).cell(2).value = sum1 با یک حلقه for میتونی برای هر جند سطر که دوست داری این کارو انجام بدی . ولی اگه جوابت رو نگرفتی بیشتر توضیح بده تا جوابت رو بدم

[kashir]

مرسی بابت جوابت
این شکلو ببین
http://up.iranblog.com/Files73/784ca38c866f479ca26a.JPG
من میخوام اختلاف روز بین تاریخ اولی و دومی رو بدست بیارم(البته تابعشو دارم) و بعد یه عملیاتی روش انجام بدم و نتیجه بعنوان امتیاز تو ستون امتیاز نمایش داده بشه
یه سوال دیگه: اگه این مرحله انجام شد چطوری میشه داده های ستون امتیاز رو تو بانک ذخیره کرد؟
و آخرین سوال: توی vb.net میشه select,update,delete و ... انجام داد میشه با دستورات sql این کارو انجام داد؟

[omid-vbAuto]

آره همه کار میشه کرد.

اگه میخوای تو دیتا بیس هم ذخیره کنی فایلتو بفرست برات دوروس کنم.

[kashir]

خدا خیرت بده ببینم چکار میکنی :لبخندساده:

[kashir]

یعنی کسی نمیتونه مشکل منو حل کنه؟ :ناراحت:

[kashir]

از اساتید کسی نمیتونه مشکل منو حل کنه؟
میخوام اختلاف تاریخ اول و دوم رو در موجودی ضرب کنم و تقیسم بر 1000 و در ستون امتیاز نمایش داده بشه
البته بعد از ثبت در ستون آخر در بانک نیز ذخیره بشه
کمک کنید :افسرده:

[omid-vbAuto]

از اساتید کسی نمیتونه مشکل منو حل کنه؟
میخوام اختلاف تاریخ اول و دوم رو در موجودی ضرب کنم و تقیسم بر 1000 و در ستون امتیاز نمایش داده بشه
البته بعد از ثبت در ستون آخر در بانک نیز ذخیره بشه
کمک کنید :افسرده:


اولا فتیلی رو که گذاشتی واسه دانلود کار نمیکنه چیزائی از اونو پاک کردی.
ثانیا اگه تاریخ اول کوچکتر از تاریخ دوم باشه امتیازت منفی میاد.
ثالثا اون تابعی رو که برا زمان ساختی رو بده تا برات تکمیلش کنم.توضیح کامل بده که چی میخواهی تا بتونم کمکت کنم.

[kashir]

دوست من عکسی که ضمیمه کردم رو ببینید
سطر دوم رو در نظر بگیرید
اختلاف دو تاریخ 6 روزه
میخوام 6 در موجودی سطر که 4000000 هست ضرب بشه و بر 1000 تقسیم بشه و در ستون امتیاز ثبت بشه
میخوام بعد زدن دکمه این وضعیت واسه همه سطرها اتفاق بیوفته
حالا اگه هم بشه اطلاعاتی که در ستون امتیاز قرار گرفت در بانک ثبت بشه چه بهتر
همه فایلو که نمیتونستم بزارم حجمش زیاد بود فقط فرم مربوطه و بانکمو گذاشتم

[omid-vbAuto]

دوست من عکسی که ضمیمه کردم رو ببینید
سطر دوم رو در نظر بگیرید
اختلاف دو تاریخ 6 روزه
میخوام 6 در موجودی سطر که 4000000 هست ضرب بشه و بر 1000 تقسیم بشه و در ستون امتیاز ثبت بشه
میخوام بعد زدن دکمه این وضعیت واسه همه سطرها اتفاق بیوفته
حالا اگه هم بشه اطلاعاتی که در ستون امتیاز قرار گرفت در بانک ثبت بشه چه بهتر
همه فایلو که نمیتونستم بزارم حجمش زیاد بود فقط فرم مربوطه و بانکمو گذاشتم


بیا اینم چیزی که می خواستی.
موفق باشی.

[kashir]

دوست من اولا که این فقط سطر دو رو محاسبه میکنه
بعدش من بانکم اکسس نیست
واسه بدست آوردن اختلاف روز منها کردین؟؟؟!!!
این جوابش نیست عزیزم :افسرده:

[hero4000]

Public Function ShamsiDateDiff(ByVal Date1 As String, ByVal Date2 As String, Optional ByVal Seperator As String = "/") As Integer
Dim pc As New Globalization.PersianCalendar

Dim da1 = Date1.Split(Seperator)
Dim da2 = Date2.Split(Seperator)
If da1(0).Length < 3 Then da1(0) = "13" & da1(0)
If da2(0).Length < 3 Then da2(0) = "13" & da2(0)
Dim dt1 = pc.ToDateTime(da1(0), da1(1), da1(2), 0, 0, 0, 0)
Dim dt2 = pc.ToDateTime(da2(0), da2(1), da2(2), 0, 0, 0, 0)
Return DateDiff(DateInterval.Day, dt1, dt2)
End Function
فانکشن فوق رو تعريف کن و بعدش توي رويدادي که مي خواي محاسبه انجام بشه کدهاي زير رو بنويس


For i As Int32 = 0 To dt.Rows.Count - 1
Dim DiffDate As Int32 = 0
DiffDate = ShamsiDateDiff(DGV.Item(2, i).Value.ToString, DGV.Item(3, i ).Value.ToString)
SumRow = DiffDate * DGV.Item(1, i).Value
DGV.Item(4, i).Value = SumRow
Next

dt نام ديتاتيبل متصل شده به گريده ( که البته شما ميتونين از تعداد سطرهاي خود گريد استفاده کنين)
البته اين رو هم بگم من فرض کردم ستون اول مبلغ و ستون دوم و سوم تاريخها رو داره و ستون چهارم قراره ستون امتياز باشه
شما هر جور که گريدت رو طراحي کردي همونجوري استفاده کن

[kashir]

از کد دوست خوبمون omid-vbAuto ایده گرفتم ولی نمیتونم تو بانک ذخیرش کنم
با زدن دکمه امتیاز تمامی سطرها محاسبه میشه


Dim Date1 As String
Dim Date2 As String
Dim DayCounter As String
For i = 0 To 5
Try
Date1 = Str(DataGridView1(5, i).Value) + "/" + Str(DataGridView1(4, i).Value) + "/" + Str(DataGridView1(3, i).Value)
Date2 = Str(DataGridView1(9, i).Value) + "/" + Str(DataGridView1(8, i).Value) + "/" + Str(DataGridView1(7, i).Value)
DayCounter = ShamsiDateDiff(Date1, Date2, "/")
''End Class


Dim emtiaz As Single
emtiaz = (Str(DataGridView1(6, i).Value) * DayCounter) / 10000000 + Str(DataGridView1(11, i).Value)
DataGridView1(10, i).Value = emtiaz
Catch ex As Exception

End Try
Next

[omid-vbAuto]

دوست من عکسی که ضمیمه کردم رو ببینید
سطر دوم رو در نظر بگیرید
اختلاف دو تاریخ 6 روزه
میخوام 6 در موجودی سطر که 4000000 هست ضرب بشه و بر 1000 تقسیم بشه و در ستون امتیاز ثبت بشه
میخوام بعد زدن دکمه این وضعیت واسه همه سطرها اتفاق بیوفته
حالا اگه هم بشه اطلاعاتی که در ستون امتیاز قرار گرفت در بانک ثبت بشه چه بهتر
همه فایلو که نمیتونستم بزارم حجمش زیاد بود فقط فرم مربوطه و بانکمو گذاشتم


دوست من اگه کدی که نوشتم فقط سطر دوم رو مورد تحریک قرار میده به خاطر اینکه این جوری از من خواسته بودید.
از اون گذشته با یه دستور حلقه به تعداد سطرهات میشه برنامتو کامل کرد
در نهایت کاری که من کردم بر روی DataGridview بود وشما می تونید اونو تو Sql نیز save ویا update کنید.

[kashir]

شما می تونید اونو تو Sql نیز save ویا update کنید.

save و update اینطوریش دردسره
هرکاری کردم نشد میتونی ردیفش کنی؟

[hero4000]

دوست عزيز مگه اطلاعاتت رو از بانک نميخوني ديگه نيازي نيست توي بانک ذخيره کني

شما که فرمول محاسبه رو نوشتي کافيه که اطلاعات رو که از بانک ميخوني يک محاسبه کوچولو روش انجام بدي

[ali_najari]

دوست عزيز Weblog من رو ببينيد من يه كد نوشتم واسه محاسبه اختلاف بين 2 تاريخ شمسي (ShamsiDataDiff) ميتوني از اون كد استفاده كني

[hero4000]

دوست عزيز Weblog من رو ببينيد من يه كد نوشتم واسه محاسبه اختلاف بين 2 تاريخ شمسي (ShamsiDataDiff) ميتوني از اون كد استفاده كني

دوست عزيز توي پست 12 همون رو استفاده کردم نيازي به مراجعه به وبلاگ شما نيست :چشمک:

از قرار معلوم مشکل اين دوستمون حل شده

[kashir]

فقط یه چیزی مونده
اطلاعات هر سطر که تو ستون امتیاز ریخته شد رو چطوری تو بانکم ذخیره کنم؟؟ میشه؟ :متفکر:

[ali_najari]

دوست عزيز خوب يه حلقه بزار و بعد تمام اطلاعات مربوط به اون ستون رو توي جلدولت آپديت كن


For each Row as DatagridviewRow in DGV.Rows
DGV.Rows(i).cell(4).value.tostring()
Next

[kashir]

یعنی با این دو خط کد میشه اطلاعات ستون امتیاز رو سطر به سطر تو ردیف خودش ذخیره کرد؟ داداش میخوام تو بانکم ذخیره بشه

[ali_najari]

دوست عزیز من یه برنامه آماده میکنم تا ببینید که میشه با همین چند خط کد اطلاعات رو وارد Database کرد

[kashir]

دوست عزیز من یه برنامه آماده میکنم تا ببینید که میشه با همین چند خط کد اطلاعات رو وارد Database کرد

همچنان منتظر برنامه شما هستیم :چشمک:

[kashir]

داداش اگه نمیشه بیخیال شو، خودتو اذیت نکن :لبخندساده:

[ali_najari]

دوست عزیز من یکم کارم زیاد بود این چند وقت
این برنامه رو شما تا فردا قبل از ظهر میتونید ببینید

[kashir]

دوست عزیز من یکم کارم زیاد بود این چند وقت
این برنامه رو شما تا فردا قبل از ظهر میتونید ببینید

دمت گرم داداش، حالا که کمکم میکنی عجله نکن هر موقع سرت خلوت شد :تشویق:

[ali_najari]

دوست عزيز اين هم برنامه كه بهتون قول داده بودم
يكم بهم ريختس ولي خود گفتم اگر انجام ندم دوست خوبمون Kashir فكر ميكنن من دارم از زيرش در ميرم