(27-06-17, 06:39 PM)حريف برمجة كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته ،، كل عام وانت بخير
الخطوة الأولى : تعمل عملية التقسيم وتخزن البيانات في متغيرات .
الخطوة الثانية : ترسل المتغيرات للتقرير وفي التقرير بارامترات يستقبل المتغيرات .
إنتهى .
Dim Txt As String = "فواتير$2|طلب تسليم$6|طلب تخليص$4|"
Dim items = Txt.Split(New Char() {"|"c}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(s) s.Split(New Char() {"$"c})).ToDictionary(Function(K) K(0), Function(V) V(1))
For Each element In items
MsgBox(element.Key & " / " & element.Value)
Next
(28-06-17, 11:41 PM)ابو ليلى كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
بما ان البيانات القادمة من القاعدة متغيرة
و بالتالي ستحتاج الى حاوية متغيرة ايضاً في التقرير
و الافضل يكون جدول من حقلين
الحقل الاول يكون Type و الثاني Value
من جهة البيانات التي في الحقل ستحتاج الى عملية Split تقوم على اساسها بفصل البيانات الى جدول بحقلين ايضاً
و من ثم تسند هذا الجدول الى التقرير
عملية الفصل ساقوم بها الى مصفوفة من النوع Dictionary
تحوي الحقل و قيمته (Key,Value)
كما يلي
باقي عليك عملية الاسناد للتقريرPHP كود :
Dim Txt As String = "فواتير$2|طلب تسليم$6|طلب تخليص$4|"
Dim items = Txt.Split(New Char() {"|"c}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(s) s.Split(New Char() {"$"c})).ToDictionary(Function(K) K(0), Function(V) V(1))
For Each element In items
MsgBox(element.Key & " / " & element.Value)
Next
بالتوفيق