vb de null değeri atama

Question

yapmış olduğum programda haciz bilgileri ile ilgili bir veri tabanım var . haciz bilgileri foyno ya göre kayıt ediliyor ve haciz bilgileri foyno ya göre çağırılıyor. örnegin 8 nolu föyümde haciz bilgileri var ve işlenmiş HACİZ GÖSTER butonuna tıkladığımda sıkıntı yok kayıtlar geliyor. örnek foy 10 da haciz bilgisi işlenmemiş boş HACİZ GÖSTER butonuna tıkladığımda bu sefer hata veriyor ,veri tabanında kayıt olmadığı için, null değerini atmıyor. aşağıdaki kodları kullanıyorum . Yapmak isteğim haciz bilgisi boş dahi açılması yardımlarınız için şimdiden teşekkürler.

         

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim komutt As New SqlCommand("select * from haciz where foyno = '" & TextBox19.Text & "' ", baglanti)
        baglanti.Open()
        Dim dat As New SqlDataAdapter(komutt)
        Dim dtt As New DataTable
        dat.Fill(dtt)
        haciz.DataGridView1.DataSource = dtt
        baglanti.Close()

        Dim bnkyazitarihimiz, bnksayiyazimizno, bnktarihi, bnksayino, tapyazitarihimiz, tapsayiyazimiz, taptarihi, tapyevmiyeno, trfyazitarihimiz, trfyazinomuz, trfsayino, plakano, trftarih As String
       

        bnkyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("bnkyazitarihimiz").Value.ToString
        bnksayiyazimizno = haciz.DataGridView1.CurrentRow.Cells("bnksayiyazimizno").Value.ToString
        bnksayino = haciz.DataGridView1.CurrentRow.Cells("bnksayino").Value.ToString
        bnktarihi = haciz.DataGridView1.CurrentRow.Cells("bnktarihi").Value.ToString

        tapyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("tapyazitarihimiz").Value.ToString
        tapsayiyazimiz = haciz.DataGridView1.CurrentRow.Cells("tapsayiyazimiz").Value.ToString
        taptarihi = haciz.DataGridView1.CurrentRow.Cells("taptarihi").Value.ToString
        tapyevmiyeno = haciz.DataGridView1.CurrentRow.Cells("tapyevmiyeno").Value.ToString

        trfyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("trfyazitarihimiz").Value.ToString
        trfyazinomuz = haciz.DataGridView1.CurrentRow.Cells("trfyazinomuz").Value.ToString
        trfsayino = haciz.DataGridView1.CurrentRow.Cells("trfsayino").Value.ToString
        plakano = haciz.DataGridView1.CurrentRow.Cells("plakano").Value.ToString
        trftarih = haciz.DataGridView1.CurrentRow.Cells("trftarih").Value.ToString

        haciz.MaskedTextBox9.Text = bnkyazitarihimiz
        haciz.TextBox20.Text = bnksayiyazimizno
        haciz.TextBox1.Text = bnksayino
        haciz.MaskedTextBox1.Text = bnktarihi

        haciz.MaskedTextBox3.Text = tapyazitarihimiz
        haciz.TextBox3.Text = tapsayiyazimiz
        haciz.MaskedTextBox2.Text = taptarihi
        haciz.TextBox2.Text = tapyevmiyeno

        haciz.MaskedTextBox5.Text = trfyazitarihimiz
        haciz.TextBox5.Text = trfyazinomuz
        haciz.TextBox6.Text = trfsayino
        haciz.TextBox4.Text = plakano
        haciz.MaskedTextBox4.Text = trftarih


        haciz.Show()

    End Sub

---

bilgi paylaştıkça güzeldir....