I'm trying to populate a custom data table with info from some tables in a dataset, the problem is I can't seem to check if the field is empty (if it is I just want to pass over it and grab the next row).
This is the code I'm using but it just doesn't function as I'd expected.
VB Code:
For rowCount=1 to objDataSet.Tables("medical").rows.count If objDataSet.Tables("medical").rows(rowCount-1).Item(condition) IS Nothing then expireDate="" ELSE expireDate=objDataSet.Tables("medical").rows(rowCount-1).Item(condition) End If if expireDate >= dateToday then strName=objDataSet.Tables("medical").rows(rowCount-1).Item("FirstName") & " " & objDataSet.Tables("medical").rows(rowCount-1).Item("LastName") objDataRow=dtblExpired.NewRow() objDataRow.Item("Name")= strName dtblExpired.Rows.Add(objDataRow) End If Next




Reply With Quote