+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اخفاء الدتا جريد فيو (/showthread.php?tid=26381)
اخفاء الدتا جريد فيو - عبدالرحمن بشري عمر - 05-09-18
السلام عليكم ورحمة الله شباب لو سمحتو ان عندي الدتا جريد فيو بتتعبة وفق شرط معين هو شرط التاريخ وعايز اخفي الدتا جريد فيو لم لا يكوون فيه قيم وهي موجودة بالفورم الرئيسي ولكم الشكر نرجو المساعدة
Public Function GetDays(Num As Long) As DataTable
Dim _Select As String = "Select b,c ,(DateDiff(""m"",[i],[j])) As EndAfter From stourg Where DateDiff(""m"",[i],[j]) " & "<=" & Num
Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = con}
Dim Reader As OleDbDataReader = Cmd.ExecuteReader
Dim Dt As New DataTable
Dt.Load(Reader)
Return Dt
End Using
End Function
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله
RE: اخفاء الدتا جريد فيو - حريف برمجة - 05-09-18
(05-09-18, 07:56 PM)عبدالرحمن بشري عمر كتب : السلام عليكم ورحمة الله شباب لو سمحتو ان عندي الدتا جريد فيو بتتعبة وفق شرط معين هو شرط التاريخ وعايز اخفي الدتا جريد فيو لم لا يكوون فيه قيم وهي موجودة بالفورم الرئيسي ولكم الشكر نرجو المساعدة
Public Function GetDays(Num As Long) As DataTable
Dim _Select As String = "Select b,c ,(DateDiff(""m"",[i],[j])) As EndAfter From stourg Where DateDiff(""m"",[i],[j]) " & "<=" & Num
Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = con}
Dim Reader As OleDbDataReader = Cmd.ExecuteReader
Dim Dt As New DataTable
Dt.Load(Reader)
Return Dt
End Using
End Function
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله
وعليكم السلام ورحمة الله وبركاته ،،
فقط ضع هذا السطر :
كود :
If Dt.Rows.Count = 0 Then DataGridView1.Visible = Falseقبل End Using
RE: اخفاء الدتا جريد فيو - عبدالرحمن بشري عمر - 05-09-18
وضعة الكود لكين المشكلة مازالة قائمة
وعندي فل اللود فورم واضع
DataGridView1.DataSource = GetDays(4)
DataGridView1.Columns(0).HeaderText = "أسم المادة"
DataGridView1.Columns(1).HeaderText = "الأسم التجاري"
DataGridView1.Columns(2).HeaderText = "قبل الانتهاء "
هذا الكود والدتا جريج فيو موضوعة في الفورم ارئسية
RE: اخفاء الدتا جريد فيو - حريف برمجة - 05-09-18
بعد تشغيل التطبيق ممكن تصور الشاشة ؟
RE: اخفاء الدتا جريد فيو - عبدالرحمن بشري عمر - 06-09-18
مشكور اخي حريف المشكلة اتحلت
وضعت الكود قبل
شكر لك للمرة الثانية
Return Dt