06-03-19, 08:10 PM
الصفحات : 1 2
06-03-19, 08:34 PM
(06-03-19, 08:10 PM)hassan 14 كتب : [ -> ]يا اخوة لم اتوصل الى الحل جربت ولكن لا فائدة
ما هو الذي جربته ،، أيضا ويش حصل معك ؟
هل ظهرت رساله او شيء من هذا القبيل ؟
06-03-19, 08:40 PM
لا اما يطبعلي البطاقة فارغة او يطبع جميع البطاقات مااردته لم ينفذ كما يجب اشكرك كثيراا اخي حريف
06-03-19, 11:35 PM
ارفع مثال للجزئية المطلوب حلها لتجد الحل بشكل اسرع ...
07-03-19, 10:17 PM
هذا الكود الذي استعمله
رقم 16 يمثل مكان الشكبوكس في لبجدول مصدر البيانات
لكن عند الضغط على الزر يطبع جميع البطاقات
رقم 16 يمثل مكان الشكبوكس في لبجدول مصدر البيانات
لكن عند الضغط على الزر يطبع جميع البطاقات
كود :
Public Sub tabaa(ByVal DGV1 As DataGridView)
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select * from mochtrikin", con)
da.Fill(dt)
For i = 0 To DGV1.Rows.Count - 1
If DGV1.Item(16, i).Value = True Then
Formcrvmochtrkin.Show()
Formcrvmochtrkin.WindowState = FormWindowState.Maximized
Dim rpt As New CrystalReportmoch
rpt.SetDataSource(dt)
rpt.SetParameterValue("pic", Application.StartupPath)
Formcrvmochtrkin.CrystalReportViewer1.ReportSource = rpt
Formcrvmochtrkin.CrystalReportViewer1.Refresh()
End If
Next
End Sub08-03-19, 01:00 AM
مرحباً اخى hassan 14
يجب عليك التعديل على كود الاستعلام
كود :
select * from mochtrikinلان الاستعلام عبارة عن جلب جميع البيانات ثم ترحيلها الى التقارير
يجب ان يحتوى على ..
كود :
WHERE .....بحيث تقوم بجلب قيمة من خلال رقم التسلسل مثل
كود :
select * from mochtrikin WHERE id = 1تحياتى لك
وتمنياتى لك التوفيق
10-04-19, 08:15 PM
لم اتوصل ال الحل بعد هل من حل من فضلككم
11-04-19, 09:16 AM
يفضل ارفاق المشروع اخى الحبيب
حتى تجد الحل اسرع
لان الجميع هنا قام بوضع الحل لك
من حيث فكرياً
ولكن يبدو انك غير قادر على تنفيذ الفكرة عملياً
تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2