[ali_ahmed12]

(16-10-22, 02:07 PM)Meen2 كتب :

(16-10-22, 01:52 PM)ali_ahmed12 كتب : بارك الله فيك سؤال فيجوال بيسك عندما نكتب DR!ITEN_NAME=TEXTNAME.TEXT ماذا يعني علامة النفي في فيجوال بيسك التي قبل اسم حقل في قاعدة البيانات

هذه العلامة ! ليست علامة نفي كما هو الحال في لغة C ولكنها من مخلفات VB6 القديمة كانت بدلا من علامة التنصيص والاقواس حول اسم العمود

---

كود :

DR("ITEN_NAME") = TEXTNAME.TEXT

كود :

DR!ITEN_NAME = TEXTNAME.TEXT

ممكن تحويل كود

كود :

For I = 0 To GroupBox1.Controls.Count - 1
          If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
          If TypeOf GroupBox1.Controls(I) Is DateTimePicker Then GroupBox1.Controls(I).Text = Now.Date
          'If TypeOf GroupBox1.Controls(I) Is ComboBox Then GroupBox1.Controls(I).Text = ""

      Next
      CheckBox1.Checked = False
      TXT_CODE.Text = Format(CODE_GENE("ITEMS", "ID") + 1, "CUS0000000")
      btn_delete.Enabled = False
      btn_edit.Enabled = False
      btn_save.Enabled = True
      TXT_NAME.Select()
      TXT_UNIT.Text = ""

[Meen2]

(16-10-22, 02:21 PM)ali_ahmed12 كتب : ممكن تحويل كود

كود :

For I = 0 To GroupBox1.Controls.Count - 1
          If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
          If TypeOf GroupBox1.Controls(I) Is DateTimePicker Then GroupBox1.Controls(I).Text = Now.Date
          'If TypeOf GroupBox1.Controls(I) Is ComboBox Then GroupBox1.Controls(I).Text = ""

      Next
      CheckBox1.Checked = False
      TXT_CODE.Text = Format(CODE_GENE("ITEMS", "ID") + 1, "CUS0000000")
      btn_delete.Enabled = False
      btn_edit.Enabled = False
      btn_save.Enabled = True
      TXT_NAME.Select()
      TXT_UNIT.Text = ""

كود :

for (int I = 0; I < GroupBox1.Controls.Count; I++)
{
   if (GroupBox1.Controls[I] is TextBox)
       GroupBox1.Controls[I].Text = "";
   if (GroupBox1.Controls[I] is DateTimePicker)
       GroupBox1.Controls[I].Text = DateTime.Now.Date.ToString();
}
CheckBox1.Checked = false;
TXT_CODE.Text = "CUS" + (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

btn_delete.Enabled = false;
btn_edit.Enabled = false;
btn_save.Enabled = true;
TXT_NAME.Select();
TXT_UNIT.Text = "";