[ali_ahmed12]

السلام عليكم ورحمة الله وبركاته ممكن تحويل كود الي لغة السي شارب 

كود :

Sub SHOW_DETA(CODE_)
       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from unite  where unite_code='" & CODE_ & "'", Module1.con)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Else
           Dim DR = DT.Rows(0)
           TXT_CODE.Text = DR!unite_code
           TXT_NAME.Text = DR!unite_name
           btn_edit.Enabled = True
           btn_delete.Enabled = True
           btn_save.Enabled = False


       End If
   End Sub