[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 = ""