majidsoft
دوشنبه 11 آبان 1388, 00:30 صبح
با سلام وعرض ادب
من در رويداد كليك ديتاگريد وقتي ركوردي را انتخاب مي كنم محتويات آن ركورد در چند تكست باكي نمايش داده مي شود ولي وقتي فيلدي مقدار نداشته باشد ايراد مي گيرد
من از كد زير براي رويداد كليك استفاده مي كنم
با تشكر
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
من در رويداد كليك ديتاگريد وقتي ركوردي را انتخاب مي كنم محتويات آن ركورد در چند تكست باكي نمايش داده مي شود ولي وقتي فيلدي مقدار نداشته باشد ايراد مي گيرد
من از كد زير براي رويداد كليك استفاده مي كنم
با تشكر
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