+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] كيف اظهار التقرير في DBGrid1 اقل من تاريخ الحالي بثلاثين يوم ؟ (/showthread.php?tid=12100)
كيف اظهار التقرير في DBGrid1 اقل من تاريخ الحالي بثلاثين يوم ؟ - Yousaf-vb - 18-04-15
اسلام عليكم
كيف عرض التقارير في DBGrid1 اقل من تاريخ الحالي بثلاثين يوم ؟
يعني اظهار كل اسماء مع عدد ايام المتبقي علي انتهاء جوازتهم.....
ارجو المساعدة......شكراً..
Private Sub Command4_Click()
On Error Resume Next
UsData1.DatabaseName = App.Path & "\UserData.mdb"
UsData1.RecordSource = "Select * from UserTable1"
UsData1.Refresh
End Sub
''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
On Error Resume Next
UsData1.RecordSource = "select * from UserTable1 WHERE [db-9] > #" & DateAdd("d", -30, Date) & "#"
UsData1.Refresh
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark
UsData1.Recordset.MoveLast
TexSn = "" & UsData1.Recordset.AbsolutePosition
TexSn = TexSn + 1
End Sub
''''''''''''''''''''''''''''''''''''''''
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
DBGrid1.Columns(2) = DateDiff("d", DBGrid1.Columns(1), Date)
End Sub