يا جماعة انا عندي مشكلة انا منتقل حديت الي فيجوال بيزيك نت
انا كنت الحمد لله علي مستوي كويس بفيجوال 6
انا عايز اربط الفيجوال بالكريستال بي التقارير تبقي خارجية وتصمم في نسخة خارجية من الكريستال
وربطها بالفيجوال بالكود ياريت حد يدلني علما باني هحط كود للربط بالفيجوال بيزيك اظن انة بجودة جيدة
واريد انا اعمل بالطريقة القريبة منه في الدوت نت وجزاكم الله خيرا
Set objReport = RepApplication.OpenReport(App.Path & "\Reports\RepStore01.rpt", 1)
objReport.Database.LogOnServer "dao.dll", "", DatabaseName, "", DBPassword
objReport.Database.Tables(1).Location = DatabaseName
objReport.Database.Tables(2).Location = DatabaseName
objReport.FormulaFields.GetItemByName("FFromDate").Text = "Date(" & FReportDate(DTPicker(0).Value) & ")"
objReport.FormulaFields.GetItemByName("FToDate").Text = "Date(" & FReportDate(DTPicker(1).Value) & ")"
objReport.FormulaFields.GetItemByName("FUserName").Text = Chr(34) & FUserName(strUserID) & Chr(34)
objReport.FormulaFields.GetItemByName("ZCompName").Text = Chr(34) & FCompanyName() & Chr(34)
Call SetPrinter(1): Call SetLogo
objReport.FormulaFields.GetItemByName("FCasherName").Text = Chr(34) & "(" & lblName(1).Caption & ")" & Chr(34) 'ÃÙåÇÑ ÇáÇÓã Ýí ÇáÊÞÑíÑ
strFormula = "{Tblt_ItemTran.DocDate} >= Date(" & FReportDate(DTPicker(0).Value) & ") And {Tblt_ItemTran.DocDate} <= Date(" & FReportDate(DTPicker(1).Value) & ")"
If ChkStore(0).Value = 0 Then
If TxtBox(0).Enabled = False Then
strFormula = strFormula & " And {Tblt_ItemTran.StoreCode} in [" & strFGTreeSearch & "]"
Else
strFormula = strFormula & " And {Tblt_ItemTran.StoreCode}='" & TxtBox(0).Text & "'"
End If
End If
If ChkStore(1).Value = 0 Then
If TxtBox(1).Enabled = False Then
strFormula = strFormula & " And {Tblt_ItemTran.ItemCode} in [" & strTreeSearchResult & "]"
Else
strFormula = strFormula & " And {Tblt_ItemTran.ItemCode}='" & TxtBox(1).Text & "'"
End If
End If
If ChkStore(2).Value = 0 Then
If TxtBox(2).Enabled = False Then
strFormula = strFormula & " And {Tblt_ItemTran.DocType} in [" & strFGTreeSearch2 & "]"
Else
strFormula = strFormula & " And {Tblt_ItemTran.DocType}=val('" & TxtBox(2).Text & "')"
End If
End If]