COMO TRATAR CAMPO NULL

F001E 29/08/2011 11:58:18
#382713

Pessoal, bom dia...Tenho essa seguinte programação e gostaria de saber como faço um tratamento para Valores NULOS. é usando o ISNULL ?

Private Sub CarregaDados()
Try
SQL = [Ô][Ô]
SQL = SQL & [Ô]SELECT * FROM[Ô]
SQL = SQL & [Ô] PARACONTA[Ô]
SQL = SQL & [Ô] WHERE EMPRESA = [ô][Ô] & Empresa & [Ô][ô][Ô]
CarregarDataSet(SQL, BancoSQLContabil)
If oDataTable.Rows.Count > 0 Then
Operacao = 1
For Each oDataRow In oDataTable.Rows
txtContabilista.Text = oDataRow([Ô]CONTABILISTA1[Ô])
txtCRC.Text = oDataRow([Ô]CRM1[Ô])
txtCPF.Text = oDataRow([Ô]CPF1[Ô])
txtResponsavel.Text = oDataRow([Ô]RESPONSAVEL[Ô])
txtCPFResponsavel.Text = oDataRow([Ô]CPFRESPONSAVEL[Ô])
txtAnoVigor.Text = oDataRow([Ô]ANOVIGOR[Ô])
txtDiarioVigor.Text = oDataRow([Ô]DIARIOVIGOR[Ô])
txtRegistroANS.Text = oDataRow([Ô]REGISTROANS[Ô])
chkCentroCusto.Checked = IIf(oDataRow([Ô]CENTROCUSTO[Ô]) = 1, True, False)
chkHistorico.Checked = IIf(oDataRow([Ô]HISTORICOPROPRIO[Ô]) = 1, True, False)
chkPlano.Checked = IIf(oDataRow([Ô]CFC[Ô]) = 1, True, False)
txtContaAbertura.Text = oDataRow([Ô]CONTAABERTURA[Ô])
txtContaEncerramento.Text = oDataRow([Ô]CONTAENCERRAMENTO[Ô])
txtContaEstoque.Text = oDataRow([Ô]CONTAESTOQUE[Ô])
txtContaEstoqueInicial.Text = oDataRow([Ô]CONTAESTOQUEINICIAL[Ô])
txtContaEstoqueFinal.Text = oDataRow([Ô]CONTAESTOQUEFINAL[Ô])
Next
Else
Operacao = 0
End If
Catch ex As Exception
TratarErro([Ô]Modulo Geral[Ô], [Ô]ConectaBancoSQLServer[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub