[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

[bidaya]

كود :

public void SHOW_DETA(object CODE_)
{
   DataTable DT = new DataTable();
   SqlDataAdapter DA = new SqlDataAdapter("select *from unite  where unite_code='" + CODE_ + "'", Module1.con);
   DA.Fill(DT);
   if (DT.Rows.Count == 0)
       MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
   else
   {
       var 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;
   }
}

[الماجيك مسعد]

كود :

'متنساش تضيف using System;
public void SHOW_DETA(object CODE_)
{
       DataTable DT = new DataTable();
       SqlDataAdapter DA = new SqlDataAdapter("select *from unite  where unite_code='" + CODE_.ToString() + "'", Module1.con);
       DA.Fill(DT);
       if (DT.Rows.Count == 0)
       {
           MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
       }
       else
       {
           var DR = DT.Rows[0];
           TXT_CODE.Text = Convert.ToString(DR["unite_code"]);
           TXT_NAME.Text = Convert.ToString(DR["unite_name"]);
           btn_edit.Enabled = true;
           btn_delete.Enabled = true;
           btn_save.Enabled = false;


       }
   }