تقييم الموضوع :
  • 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]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 82 06-02-17, 07:50 PM
آخر رد: sendbad100
  كيف اضافة ازرار مثل هذا Mohamed20 3 107 27-01-17, 07:59 PM
آخر رد: مساعدة
  اضافة صور فى subitem Mohamed20 6 161 21-01-17, 03:01 PM
آخر رد: Mohamed20
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 84 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 101 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 240 20-12-16, 06:48 PM
آخر رد: zinom
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 5 209 17-12-16, 07:52 PM
آخر رد: محمد كريّم
  اضافة كود الباركود في الطباعة hglogtd 3 151 16-12-16, 06:38 PM
آخر رد: hglogtd
  اضافة تاريخ عبدالرحمن المكاوي 1 120 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي

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


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