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


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

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

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


وفقكم الله


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






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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عند اضافة حالة جديدة naden 1 47 16-09-17, 09:20 PM
آخر رد: أبو نوره
  اضافة عدد الايام + التاريخ الاول = التاريخ الثانى nabil.1710 3 86 15-09-17, 05:10 AM
آخر رد: طـلال
  كيفية اضافة حقل CheckBox لعنوان العمود المتألق9 6 136 24-08-17, 04:18 PM
آخر رد: سعود الشامان
  طلب كود اضافة العلامات العشريه للتكست بوكس نبيل كونكت 7 145 20-08-17, 12:48 AM
آخر رد: محمود بكرى
  اضافة حقل الى جدول برمجيا كرم ابوهشام 1 97 31-07-17, 08:44 PM
آخر رد: سعود
  كيفية اضافة ال hycam2 لل refrence في الفيجوال بيسك khaled12345 8 192 08-07-17, 01:18 AM
آخر رد: khaled12345
  [سؤال] اضافة مجلدات المشروع لبرنامج ال setup factory makky 3 374 06-07-17, 03:37 PM
آخر رد: Adrees
  كيفية اضافة صورة للتقرير المتألق9 1 133 22-06-17, 05:16 PM
آخر رد: boudyonline
  [VB.NET] اضافة كلمة في جميع اسطر listbox mervandzz 1 134 19-06-17, 05:03 PM
آخر رد: silverlight
  اضافة بيانات من خلال القائمة المنسدلة KH_Alaswad 0 114 19-06-17, 12:58 AM
آخر رد: KH_Alaswad

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


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