01.
dim objConn as new sqlconnection
02.
dim DA as new sqldataAtapter
03.
dim DT as new Datatable
04.
dim sqltem as string
05.
dim strConn as string =
"server=host;database=db;trusted_connection=true;"
06.
07.
page_load
08.
rangeWaranty()
09.
MyDatagrid ()
10.
end sub
11.
12.
private sub MyDatagrid
13.
using objConn as new sqlconnect(strconn)
14.
objConn.open
15.
sqltem =
"select *, Datediff(day,Startdate(column),Enddate(column)) as Waranty From table"
16.
using DA as new sqldataAdapter
17.
DT =
New
DATAtable
18.
DA.Fill(DT)
19.
DataGridView1.datasource = DT
20.
end using
21.
end sub
22.
23.
private sub rangeWaranty()
24.
For
i
As
Integer
= 0
To
DataGridView1.RowCount - 1
25.
If
Convert.ToInt16(DataGridView1(2, i).Value) < 3
Then
26.
DataGridView1(2, i).Style.BackColor = Color.Red
27.
End
If
28.
Next