تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة كود لعرض الشيك لطباعته
#1
السلام عليكم 


يعطيكم العافيه 

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

ولكن يظهر لي الاسم الاول فقط فلو تكرمتوا احتاج مساعدتكم تكرماً لاني ما عرفت للاكواد 


وفقكم الله


الملفات المرفقة
.rar   شيكات.rar (الحجم : 302.56 ك ب / التحميلات : 46)






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form2

    Private Sub CheqsBindingNavigatorSaveItem_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles CheqsBindingNavigatorSaveItem.Click
        Me
.Validate()
 
       Me.CheqsBindingSource.EndEdit()
 
       Me.TableAdapterManager.UpdateAll(Me.____SHIC_be1DataSet)

 
   End Sub

    Private Sub Form2_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        Me
.CheqsTableAdapter.Fill(Me.____SHIC_be1DataSet.cheqs)

 
   End Sub

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim res 
=
 
           From x In Me.____SHIC_be1DataSet.cheqs
            Where x
.cheq_ID TryCast(CheqsBindingSource.CurrentDataRowView).Item("Cheq_ID")

 
       If IsDBNull(res(0).Item("Cheq_modf")) Then res(0).Item("Cheq_modf") = String.Empty

 
       Form1.ReportViewer1.LocalReport.DataSources(0).Value res.ToList
        Form1
.ReportViewer1.RefreshReport()

 
       Form1.Show()
 
       Me.Hide()

 
   End Sub

    Private Sub TextBox1_TextChanged
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.TextChanged
        CheqsBindingSource
.Filter "name1 like '%" TextBox1.Text.Trim "%'"

 
   End Sub

End 
Class 
الرد }}}}
تم الشكر بواسطة: hassan
#3
Dim res =
From x In Me.____SHIC_be1DataSet.cheqs
Where x.cheq_ID = TryCast(CheqsBindingSource.Current, DataRowView).Item("Cheq_ID")

If IsDBNull(res(0).Item("Cheq_modf")) Then res(0).Item("Cheq_modf") = String.Empty

Form1.ReportViewer1.LocalReport.DataSources(0).Value = res.ToList
Form1.ReportViewer1.RefreshReport()

Form1.Show()
Me.Hide()


--------------------------------------------------------------------------------

يعطيك العافية وما قصرت وكتب الله اجرك






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 أمس, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 73 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 92 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  اضافة عمود من نوع image ل bound datagridview noway 1 72 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 72 15-11-16, 10:30 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 234 09-11-16, 01:39 PM
آخر رد: walkady
Thumbs Up اضافة كود جمع و طرح في داتا قريد ص hglogtd 4 103 27-10-16, 03:15 AM
آخر رد: hglogtd
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 162 16-10-16, 06:09 PM
آخر رد: makky
  اضافة وقت الى وقت Mohamed20 5 127 02-10-16, 04:51 AM
آخر رد: ممدوح
  اضافة اكثر من ليست بوكس الي قاعدة البيانات makky 1 112 26-09-16, 09:57 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم