sniper-jawadino

شكرا أخي أسامة على ردك   لكن ألا يمكن بناء مصدر البيانات بالكود بدون DataSet يعني تمرير الإستعلام ومصدر الإستعلام والربط مع التيكس الوجودة في التقرير .. الكل بالكود كما في الفيجوال 6

uuuuuuuuuuuuuup

السلام عليكم حقا التقارير في الدوت نت مشكلة عويصة فلم أجد أداة دون مشاكل استسلمت ل Report لسهولتها وتواجدها افتراضيا بالفيجوال لكني  أحب التعامل بالكود , وجل المواضيع تتعامل مع النوافذ أتمنى من أحد الأعضاء أن يساعدني في هذا الكود الذي وضعت فلم يشتغل     '******************************************************************************​*********** If cn.State = ConnectionState.Open Then cn.Close() cn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\bd.accdb" cn.Open() '******************************************************************************​*********** dt1.Clear() da = New OleDbDataAdapter("select * from Table1", cn) Me.Table1TableAdapter.Fill(dt1) Me.ReportViewer1.RefreshReport() لقد أرفقت مثال صغيير جدا   www.gulfup.com/?HDPhWV

uuuuuuuuuuuuuup

upupupup

uuuuuuuuuuuuup

UUUUUUUUUUUUUUUUP

uup

إخواني أريد عند الضغط على الداتاغريد تضهر لي البيانات في التيكسات لقد وضعت هذا الكود في حدث DataGrid1_Click() If Rs.RecordCount = 0 Then Exit Sub Text41.Text = Rs.Fields!ID Combo3.Text = Rs.Fields!Type Combo4.Text = Rs.Fields!Libellé Text42.Text = Rs.Fields!Qui لكن يجب أن أضغط مرتين على الداتاغريد كيف أحل المشكل إخواني

لقد رفعت المثال http://www.gulfup.com/?rkVHPR مستخدما '%" & Trim(Combo4) & "%' الكود شغال لكنه يفلتر كل البيانات حتى المشابهة أما '" & Trim(Combo4) & "' فهو يستدعي البيانات بشكل مطابق لكنه لا يستدعي كل البيانات عند وجود فراغ والله لا أعرف ما أفعل

مرحبا إخواني كيف أجعل ترجمة هذا الاستعلام إما أن يجلب لي ما في التيكس وإذا كان التيكس فارغ فيجلب لي الكل تماما مثل عملية الفلترة Rs.Open "select * from ACCUEILLE where (col1 = '" & Trim(text1) & "' or col1 is not null)", DB, adOpenStatic, adLockPessimistic جزاكم الله خير جزاء  

مرحبا إخواني كيف أجعل ترجمة هذا الاستعلام إما أن يجلب لي ما في التيكس وإذا كان التيكس فارغ فيجلب لي الكل تماما مثل عملية الفلترة Rs.Open "select * from ACCUEILLE where (col1 = '" & Trim(text1) & "' or col1 is not null)", DB, adOpenStatic, adLockPessimistic جزاكم الله خير جزاء  

مرحبا إخواني كيف أجعل ترجمة هذا الاستعلام إما أن يجلب لي ما في التيكس وإذا كان التيكس فارغ فيجلب لي الكل تماما مثل عملية الفلترة Rs.Open "select * from ACCUEILLE where (col1 = '" & Trim(text1) & "' or col1 is not null)", DB, adOpenStatic, adLockPessimistic جزاكم الله خير جزاء  

uuuuuuuuuuuuuuuuuup

uuuuuuuuuuuuuuuuuuuup