تقييم الموضوع :
  • 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] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 139 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 102 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 61 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 540 16-05-17, 01:12 AM
آخر رد: salah mansour
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 98 13-05-17, 01:11 AM
آخر رد: rabeh.ram
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 88 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 103 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 73 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 85 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 62 05-05-17, 06:38 PM
آخر رد: محمد بن عطية

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


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