What code would I need to add below to make the text in datagrid rows bold
when the value of one of the fields, "strResult" equals "Purchased" ?
Function bolPopulateData Grid() as Boolean
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapte r
Dim sConn As String
Dim sComm As String
Dim oDataSet As New DataSet
'Build the connection string
sConn = "Provider=Micro soft.Jet.OLEDB. 4.0;"
sConn += "Data Source=D:\inetp ub\www\myweb\fp db\db.mdb;"
sConn += "Persist Security Info=False"
'Build the SQL string
sComm = "SELECT qryDataGrid01.* "
sComm += "FROM qryDataGrid01;"
'Create the connection and command objects
oConn = New OleDbConnection (sConn)
oComm = New OleDbDataAdapte r(sComm, oConn)
'Fill the dataset with the results of the query
oComm.Fill(oDat aSet, sComm )
'Set the grid source to the dataset and bind the data
oGrid.DataSourc e=oDataSet.Tabl es(sComm).Defau ltView
oGrid.DataBind( )
End Function
when the value of one of the fields, "strResult" equals "Purchased" ?
Function bolPopulateData Grid() as Boolean
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapte r
Dim sConn As String
Dim sComm As String
Dim oDataSet As New DataSet
'Build the connection string
sConn = "Provider=Micro soft.Jet.OLEDB. 4.0;"
sConn += "Data Source=D:\inetp ub\www\myweb\fp db\db.mdb;"
sConn += "Persist Security Info=False"
'Build the SQL string
sComm = "SELECT qryDataGrid01.* "
sComm += "FROM qryDataGrid01;"
'Create the connection and command objects
oConn = New OleDbConnection (sConn)
oComm = New OleDbDataAdapte r(sComm, oConn)
'Fill the dataset with the results of the query
oComm.Fill(oDat aSet, sComm )
'Set the grid source to the dataset and bind the data
oGrid.DataSourc e=oDataSet.Tabl es(sComm).Defau ltView
oGrid.DataBind( )
End Function
Comment