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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة استعلامات جديدة rabeh.ram 10 181 22-05-17, 03:59 AM
آخر رد: rabeh.ram
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 9 222 18-05-17, 12:34 AM
آخر رد: khaled12345
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 73 25-04-17, 02:33 PM
آخر رد: tarek
  طلب مساعدة في اضافة save & restore trakktour 10 466 22-04-17, 06:00 PM
آخر رد: sambro
  ,اضافة تكست للريبورت alma_fandi 6 173 22-04-17, 05:59 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 83 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 315 18-04-17, 11:03 PM
آخر رد: كود برمجي
Wink اضافة اعلان ادسينس على واجهة البرنامج Basel_hmd 0 70 11-03-17, 04:48 PM
آخر رد: Basel_hmd
  كيف اضافة جميع item list فى subitem Mohamed20 3 94 11-03-17, 01:34 AM
آخر رد: مساعدة

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


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