منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

(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 = "";

الصفحات : 1 2