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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 61 اليوم, 12:14 AM
آخر رد: 3asfa~mdmra
  اضافة صور فى subitem Mohamed20 2 86 أمس, 11:05 AM
آخر رد: مساعدة
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 68 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 211 20-12-16, 06:48 PM
آخر رد: zinom
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 5 174 17-12-16, 07:52 PM
آخر رد: محمد كريّم
  اضافة كود الباركود في الطباعة hglogtd 3 123 16-12-16, 06:38 PM
آخر رد: hglogtd
  اضافة تاريخ عبدالرحمن المكاوي 1 95 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 109 09-12-16, 03:36 AM
آخر رد: elhon.tec
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 169 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  اضافة عمود من نوع image ل bound datagridview noway 1 115 17-11-16, 12:08 PM
آخر رد: Genius Live

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


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