تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في تصحيح كود تمرير متغيرات الى الكرستال
#1
طبعا هذا كود لتمرير المتغيرات من الفجوال بيسك الى الكريستال ريبورت
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If matcmp.SelectedIndex <> -1 Or spoo.SelectedIndex <> -1 Or lc.SelectedIndex <> -1 Then


Dim y As String
y = matcmp.SelectedValue// المتغير الأول
Dim n As String
n = spoo.SelectedValue//المتغير الثاني
Dim f As String
f = lc.SelectedValue// المتغير الثالث

connectionString = "Data Source=DATABASE-SRV5;Initial Catalog=Assets;Integrated Security=True"
cnn = New SqlConnection(connectionString)
cnn.Open()

select_part = "SELECT Materials.Mat_ID, Materials.Ast_ID, Materials.Mat_Desc, Materials.Mat_Deactivated, Materials.Mat_WrittenOff, Materials.Mat_Sponsor, Materials_Statuse.Desc, Materials.Current_Loc, Locations.Desc FROM Assets.dbo.Materials_Statuse Materials_Statuse INNER JOIN (Assets.dbo.Locations Locations INNER JOIN Assets.dbo.Materials Materials ON Locations.Code=Materials.Current_Loc) ON Materials_Statuse.Code=Materials.Mat_Statuse"

where_part = " where true "
where_part = where_part + "And Materials.Mat_ID='" & y & "' And Materials.Mat_Sponsor= '" & n & "' And Materials.Current_Loc='" & f & "'"

sql = select_part + where_part
MsgBox(sql)
Dim dscmd As New SqlDataAdapter(sql, cnn)
DS.Clear()
MsgBox("open")
'***********************

dscmd.Fill(DS, "d")الخطأ هنا في دالة FILL ولا اعلم السبب الكود يطبق كله ماعدا هذه الدالة يظهر خطأ
DS.WriteXmlSchema("rpt.xml")
d = DS.Tables(0)
rpt.SetDataSource(d)

'**********************

With Me

.CrystalReportViewer1.ReportSource = rpt
.CrystalReportViewer1.RefreshReport()
.Show()
End With


End If
End Sub
الرد }}}}
تم الشكر بواسطة:
#2
انا في رأئي تبعد عن تقارير الكريستال لأنها أولاً معقده وثانياً بعد الانتهاء من المشروع لا تعمل على كل الاجهزة .

تقارير الدوت نت اسهل وافضل وتتنصب مع برنامج عادي اثناء التنصيب على الاجهزة الاخرى .
الرد }}}}
تم الشكر بواسطة:
#3
مرحبا اخواني انا عندي مشروع تخرج وهو تصمصم برنامج كاشير مطاعم وقد توقفت في مرحلة وهي كيفية تصميم فاتورة البيع وفي اي اداة اصممها .......ارجوا المساعد .... ولكم جزيل الشكر .....تحياتي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة لنشر موقعي safa 0 21 أمس, 12:14 PM
آخر رد: safa
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 96 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 141 13-01-17, 10:44 AM
آخر رد: 0theghost0
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 0 77 05-01-17, 09:50 AM
آخر رد: malek369
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 88 27-12-16, 08:20 PM
آخر رد: مساعدة
  تصحيح الكود الاتي CLARO 2 61 23-12-16, 02:12 PM
آخر رد: CLARO
  [VB.NET] مساعدة في تحويل كود من php الى vb.net dubai.eig 8 147 23-12-16, 01:29 AM
آخر رد: dubai.eig
  سؤال بخصوص الكرستال ريبورت hglogtd 10 464 19-12-16, 04:12 PM
آخر رد: وائل القطاوي
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 5 199 17-12-16, 09:57 AM
آخر رد: محمود بكرى
  [VB.NET] مساعدة بمشروع توزيع الشفتات (النوبات) اليومية omran.a 0 66 14-12-16, 04:29 PM
آخر رد: omran.a

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


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