用以下方法:
Dim tTable As DataTable
Dim rRow As DataRow
Dim cColumn As DataColumn
tTable = myDataSet.Tables("myTable")
Dim i As Integer = 0
For Each rRow In tTable.Rows
Dim fieldvalue As Boolean = myDataSet.Tables(0).Rows(i)
("strikeout")
If fieldvalue Then
myDataGrid.Font = New System.Drawing.Font("Microsoft
Sans Serif", 8.25!, System.Drawing.FontStyle.Strikeout,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
End If
i = i + 1
Next rRow