[sphinx]

اشكرك جدا اخي لكن اين الشرط اذا كان اكبر من 30 يوم او اقل من 30 يوم
هذا الكلام ايطبق على جرعة واحدة او لكل الجرع


وكيف يمكن ان اطبق الكود على فورم ثاني فورم البحث داخل الداتا كريد فيو

[silverlight]

شرط التهرب من التطعيم في هذا السطر

كود :

If dateDiff < 0 Then
         
      End If

و بناء علي ذلك نقوم بتغيير لون الخط في التكست بوكس

أما اذا كنت تريد تطبيق نفس الأسلوب مع داتا جريد في فورم أخر عليك أن تطبق نفس الفكرة علي كل Row موجود في الدات جريد و إذا كنت تريد استخدام نفس الأسلوب في اكثر من فورم عليك ان تكتب الدوال بنفس الأسلوب الذ وضحته لك في مشاركتي الأولي و تجعلها Shared فقط لا غير

و ان لم تستطع ان تفعل هذا لوحدك عليك ان ترفع الملفات الخاصة بمشروعك حتي نساعدك و نكتب الكود لك أو ربما أحد أخر من الإخوة يستطيع مساعدتك في هذا الأمر

[sphinx]

لم احصل على النتيجة المرجوة من الكود ولا يتغير اللون
والمقارنه تكون بين اللقاح القادم وبين التاريخ الحالي now او today
هل هذا الكود يطبق على جرعة واحدة ام كل الجرع

[silverlight]

أنا ما فهمته من أسئلتك ان وقت التطيم الجديد مازال باق عليه وقت و بالتالي الشرط لن يتحقق الأن أبدا

فقط الشرط سيتحقق في حالة ان يكون تاريخ التطعيم الجديد أقل من تاريخ اليوم
Now = Today

و لكي تتأكد من أن الكود يعمل جيدا كل ما عليك أن تفعله هو أن تجعل قيمة تاريخ التطيم تساوي الأمس مثلا و بالتالي سيتحقق الشرط في تلك الحالة

[sphinx]

استاذي العزيز احاول ان ارفع البرنامج لكن الحجم لا يسمح بذلك
سارفعه عبر الميديا
هناك ثلاث خانات للتاريخ
اولا تاريخ اعطاء اللقاح ويحدده اليوزر
ثانيا تاريخ اللقاح القادم ويكون بعد شهرين من تاريخ اعطاء اللقاح
ثالثا التاريخ الحالي now او today وهو الذي نقارن به مع تاريخ اللقاح القادم

[sphinx]

السلام عليكم
استاذي العزيز بسبب الحجم الكبير للبرنامج
هذا رابط البرنامج


http://www.mediafire.com/download/ebskls...on+app.rar
 واشكرك جدا

[sphinx]

وهذا رابط البرنامج علة مركز الخليج لان رابط الميديا فاير لا يعمل
http://www.gulfup.com/?0qep6Y

[silverlight]

بدلا من TextBox2 الذي يظهر به زمن التسرب من التطعيم أنصحك أن تستخدم Label بدلا منه لأنه مجرد كونترول لإظهار البيانات و ليس للكتابة

قمت بتعديل الكود قليلا في الحدث التالي و ان كنت ترغب ان تفعل نفسي الشئ في بقية المشروع يمكنك استخدام نفس الفكرة

كود :

   Private Sub Btnnext_Click(sender As Object, e As EventArgs) Handles Btnnext.Click
       cm.Position += 1
       showpostion()
       'هذا الكود الاظافة والمقارنه لجرعة واحدة فقط وهي جرعة الصفر
       'Dim strDate As Date
       'Dim strate As Date
       'Dim next1 As Date
       'next1 = DtpBCG.Value
       'Me.Dtpnext1.Value = next1.AddMonths(2)
       'strate = Dtpnext1.Value
       'strDate = Today

       Me.Label33.Text = ""
       Dim vDate As DateTime = DtpBCG.Value
       Dim nDate As DateTime = DateTime.Now
       Dim clr As Color = CType(Label33.ForeColor, Color)
       Label33.ForeColor = clr
       Me.Label33.Text = CStr(CInt(vDate.Subtract(nDate).TotalDays))
       Dim labelColor As Color = If((vDate.Subtract(nDate).TotalDays < 0), Color.Red, clr)
       Label33.ForeColor = labelColor

   End Sub

[sphinx]

اشكرك جدا استاذي وبارك الله بيك
هل يمكن ان اقوم بنفس الكود في الفورم الثاني فورم البحث لان المطلوب وان يظهر في البحث الطفل المتسرب

[silverlight]

تستطيع استخدام نفس الفكرة او تطويرها كيفما شئت