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

نسخة كاملة : سؤال في عدم تمكين احد خلايا الداتا جريد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لدي داتا جريد مكونة من أربعة حقول Column4 - Column3 -Column2-Column1
اريد كود يقوم بعدم تمكين احد حقول الداتا جريد وليكن مثلا الحقل الثالث(Column3)  
فلو كان مؤشر الكتابة على الحقل الثاني (Column2)عند الضغط على زر tab ينتقل التركيز الى الحقل الرابع (Column4)
السلام عليكم 
انا محتاج اسأل عن موضوع اخر لكن مش عارف اسأل فين 
عندى قاعدة بيانات اكسيس انشأتها وعاوز ابعثها لحضراتكم علشان محتاج لمساعدة وهى
انشأت نموذج ومن ضمن ما به عدد 2 listBox وعاوز اضع البيانات التى تظهر بهم فى listBoxt اخر يشتمل على بياناتهم معا
كيف ابعث ذلك
معذرى اننى دخلت على هذا السؤال لأوصل سؤالى
المطلوب بعد اذن حضراتكم 
عند فتح البرنامج ستظهر نافذة اختار منها الدخول على التقارير
ثم اختار فترة بين سنتين وليكن 2016، 2017 واختار نوع السوق ثم اختار الفترة بين الشهور وستظهر بعض البيانات
المراد العمل على ال listBox كما يلى
ال listBox الاول والثانى اسمائهم  bmo11, bmo1  واريد ان اضع قيمهم فى ال listBox الثالث واسمه good
وذلك بعد اختيار السنة من واختيار السنة إلى ثم اختيار نوع السوق واختيار الشهور من وإلى وذلك حتى تظهر القيم المراد فى العمل عليها
ملحوظة:   تم ارفاق ملف الاكسيس المراد العمل عليه مع هذه الرسالة ليتم التعديل عليه بما طلبته من حضراتكم
برجاء معرفتى كيف اتلقى الاجابة 
مع جزيل الشكر لحضراتكم
(03-05-21, 01:25 AM)ismaeel كتب : [ -> ]لدي داتا جريد مكونة من أربعة حقول Column4 - Column3 -Column2-Column1
اريد كود يقوم بعدم تمكين احد حقول الداتا جريد وليكن مثلا الحقل الثالث(Column3)  
فلو كان مؤشر الكتابة على الحقل الثاني (Column2)عند الضغط على زر tab ينتقل التركيز الى الحقل الرابع (Column4)


كيف تقوم تملء  ال داتا جريد
ممكن الكود الذي تملء  به ال بيانات
(03-05-21, 01:31 PM)mrfenix93 كتب : [ -> ]كيف تقوم تملء  ال داتا جريد
ممكن الكود الذي تملء  به ال بيانات

كود :
       Dim sql = ("select * from AC_Mark ")
       Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DGV1.AutoGenerateColumns = False
       DGV1.DataSource = dt
كود :
       Dim sql = ("select * from AC_Mark ")
       Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DGV1.AutoGenerateColumns = False
       DGV1.DataSource = dt
    DGV1.Columns["???????"].ReadOnly = false


وحضرتك تحدد الحقل الذي تريد
(03-05-21, 02:59 PM)mrfenix93 كتب : [ -> ]
كود :
       Dim sql = ("select * from AC_Mark ")
       Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DGV1.AutoGenerateColumns = False
       DGV1.DataSource = dt
    DGV1.Columns["???????"].ReadOnly = false
ظهرت المشكلة التالية
(03-05-21, 10:53 PM)ismaeel كتب : [ -> ]
(03-05-21, 02:59 PM)mrfenix93 كتب : [ -> ]
كود :
       Dim sql = ("select * from AC_Mark ")
       Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DGV1.AutoGenerateColumns = False
       DGV1.DataSource = dt
    DGV1.Columns["???????"].ReadOnly = false
ظهرت المشكلة التالية

المقصود هنا في الكود التالي اسم العمود كمثال عمود الهاتف.

Columns["phone"].readonly


أما اذا اردت تحديد رقم العمود

Columns(3).readonly
وهذا هو حل المشكلة الجديدة التي ظهرت