كار با ديتاگريد

[majidsoft]

با سلام وعرض ادب
من در رويداد كليك ديتاگريد وقتي ركوردي را انتخاب مي كنم محتويات آن ركورد در چند تكست باكي نمايش داده مي شود ولي وقتي فيلدي مقدار نداشته باشد ايراد مي گيرد
من از كد زير براي رويداد كليك استفاده مي كنم
با تشكر

Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
Dim cnn As SqlConnection = Fn_Get_SqlConnection() : Dim dro As SqlDataReader
If e.RowIndex >= 0 Then
Dim cmd As SqlCommand = New SqlCommand("SELECT * from moshtarak Where id =" & dgv.Rows(e.RowIndex).Cells(0).Value & "", cnn)
cnn.Open()
dro = cmd.ExecuteReader
If dro.HasRows = True Then
dro.Read() : txtesh.Text = dro("id")
txtfname.Text = dro("fname") : txtlname.Text = dro("lname")
txtmantag.Text = dro("mantag") : txttel2.Text = dro("tel2")
txtadres.Text = dro("adres") : txttel.Text = dro("tel")
End If : cnn.Close() : End If
End Sub

[ali_md110]

مجید اقا روشتون رو عوض کنید اول دیتاگرایدتون رو با یک ساب روتین پر کنید از داده بزارش تو فرم لود یا هر رویدادی که خواستی بعد در رویداد کلیک دیتاگراید کد زیر بنویسید

Private Sub DG_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG.CellClick
Try
txtcat.Text = dataGridView1.CurrentRow.Cells(1).Value.ToString()
txtdes.Text = dataGridView1.CurrentRow.Cells(2).Value.ToString()
Catch ex As Exception
Throw New Exception("پیام دلخواه")
End Try

End Sub