برداشتن خاصیت انتخاب سلول یا ردیف دیتا گریدویو

[roxe77]

سلام
من میخام یه کاری کنم که گرید ویو تو فرم نمایش داده بشه و هیچ سطر یا ستونی انتخاب شده یعنی آبی نشه
و اینکه سطر ها رو خود برنامه رنگی میکنه !! البته اونایی که شرطش صدق میکنه!! و نمیخام سلولی رو کسی بتونه انتخاب کنه و رنگ آبی بگیره!! مخمو خورد والا !!
70686
مثل این

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

[ma.rad]

dataGridView1.ClearSelection();

[imanamami]

سلام
من میخام یه کاری کنم که گرید ویو تو فرم نمایش داده بشه و هیچ سطر یا ستونی انتخاب شده یعنی آبی نشه
و اینکه سطر ها رو خود برنامه رنگی میکنه !! البته اونایی که شرطش صدق میکنه!! و نمیخام سلولی رو کسی بتونه انتخاب کنه و رنگ آبی بگیره!! مخمو خورد والا !!
70686
مثل این

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


چطور شرط را در دیتاگرید اعمال می کنید.اگر می شه اینجا بگذارید خیلی ها با اینکار مشکل دارند

[roxe77]

اها من یه نمونه کد از برنامم رو میزارم
Private Sub FillCalander()
dg1.Rows.Clear()
Dim nowdate As Date
Dim oneweekpast As Date
Dim kh As DataTable
Dim khr As DataRow
nowdate = New Date(Date.Now.Year, Date.Now.Month, Date.Now.Day)
Dim ndate As Date = New Date(Date.Now.Year, Date.Now.Month, Date.Now.Day)
Dim nextdate1 As Date = DateAdd(DateInterval.Day, 1, ndate)
Dim nextdate As Date = New Date(nextdate1.Year, nextdate1.Month, nextdate1.Day)
For i As Integer = 0 To 6
kh = CalanFillTableAdapter1.GetDataByD1Calender(nowdate )
Dim describe As String = ""
For Each khr In kh.Rows
describe = khr.Item("Describe").ToString
dg1.Rows.Add()
dg1.Rows(dg1.RowCount - 1).Cells(0).Value = ConvertEnToPr(nowdate).ToString("n")
dg1.Rows(dg1.RowCount - 1).Cells(1).Value = describe.ToString
If nowdate = ndate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Red
End If
If nowdate = nextdate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Yellow
End If
Next

kh = ChequesInputTableAdapter1.GetDataByD1Calender(nowd ate)
describe = ""
For Each khr In kh.Rows
describe = " چک دریافتی به شماره " + khr.Item("Cheque_number").ToString + " به مبلغ " + Val(khr.Item("Cheque_Amount")).ToString("N0") + " ریال "
dg1.Rows.Add()
dg1.Rows(dg1.RowCount - 1).Cells(0).Value = ConvertEnToPr(nowdate).ToString("n")
dg1.Rows(dg1.RowCount - 1).Cells(1).Value = describe.ToString
If nowdate = ndate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Red
End If
If nowdate = nextdate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Yellow
End If
Next
kh = ChequesOutputTableAdapter1.GetDataByD1Calender(now date)
describe = ""
For Each khr In kh.Rows
describe = " چک پرداختی به شماره " + khr.Item("Cheque_number").ToString + " به مبلغ " + Val(khr.Item("Cheque_Amount")).ToString("N0") + " ریال "
dg1.Rows.Add()
dg1.Rows(dg1.RowCount - 1).Cells(0).Value = ConvertEnToPr(nowdate).ToString("n")
dg1.Rows(dg1.RowCount - 1).Cells(1).Value = describe.ToString
If nowdate = ndate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Red
End If
If nowdate = nextdate Then
dg1.Rows(dg1.RowCount - 1).DefaultCellStyle.BackColor = Color.Yellow
End If
Next
nowdate = DateAdd(DateInterval.Day, 1, nowdate)
Next
dg1.ClearSelection()
dg1.Enabled = False
End Sub