Try applying this to the dataset.
Public Sub returnNullsEmpty(ByRef ods As DataSet)
Dim oTable As DataTable
Dim oRow As DataRow
Dim oColumn As DataColumn
Dim cProcessInfo As String = "getDataReader"
Try
For Each oTable In ods.Tables
For Each oRow In oTable.Rows
For Each oColumn In oTable.Columns
If IsDBNull(oRow.Item(oColumn.ColumnName)) Then
Select Case oColumn.DataType.ToString
Case "System.DateTime"
oRow.Item(oColumn.ColumnName) = CDate("01/01/1900")
Case "System.Integer"
oRow.Item(oColumn.ColumnName) = 0
Case Else
oRow.Item(oColumn.ColumnName) = ""
End Select
End If
Next
Next
Next
Catch ex As Exception
returnException(mcModuleName, "setDataSet", ex, "", cProcessInfo, mbDebug)
End Try
End Sub
Eonic - Suppliers of bespoke web solutions and EonicWeb Content Management.
|