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
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله
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
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله
