تقييم الموضوع :
  • 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] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في datagridview يونس 4 84 22-02-17, 06:50 PM
آخر رد: يونس
Photo [VB.NET] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في DataGridView يونس 0 44 22-02-17, 05:15 PM
آخر رد: يونس
  تصحيح الامتحان برمجيا القيصر بيلا 3 138 12-02-17, 02:48 PM
آخر رد: القيصر بيلا
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 183 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 88 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 117 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 204 24-01-17, 08:32 PM
آخر رد: gmailali
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 91 23-01-17, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 71 22-01-17, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 179 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra

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


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