تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض رصيد بمعلومية عنصر عن طريق كومبوبوكس
#1
السادة
اريد عمل اجراء  في موديول
كلما تم استدعاؤه في اي فورم بمعلومية كمبوبوكس2   قيمة

Public Sub showtheraseed( ByVal ComboBox2.SelectedValue as integer)


        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()

        Dim command As New SqlCommand
        command = New SqlCommand
        command.Connection = conn

        Dim purin, purback, salin, salback As Double
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        command.Connection = conn
        command.CommandType = CommandType.Text
        command.CommandText = "SELECT sum(invqu) as sumofpur FROM adpurdet WHERE itcod = " & ComboBox2.SelectedValue & "     "

        Dim dr1 As SqlDataReader
        If dr1 IsNot Nothing Then dr1.Close()
        dr1 = command.ExecuteReader
        Dim dt1 As New DataTable
        dt1.Load(dr1)
        If dt1.Rows.Count = 0 Then
            purin = 0

        Else
            If IsDBNull(dt1.Rows(0).Item("sumofpur")) Then
                purin = 0
            Else
                purin = (dt1.Rows(0).Item("sumofpur"))
            End If

        End If
end sub

؟؟؟
السادة الزملاء
مش عارف اعمل الكمبو كمتغير ؟؟؟

من فضلكم
برجاء الرد
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
السادة عايز استخدم اسم الكمبو في اي فورم. اي كمتغير
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#3
اعلن عن متغير من نوع كومبو بوكس كـ Public

مثال:
كود :
  Public withevents Combobox1 as new Combobox




 ولكي تستطيع الوصول الى احداث العنصر في وقت كتابة الكود تم الاعلان عن المتغير السابق باستخدام الكلمة WithEvents 
التي كما قلت تسمح لك بالوصول الى احداث العنصر كما لو انك اضفته من صندوق الادوات

الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
مش عارف انفذ تعديل الكود الي يوضع في الموديول. ثم كيف استدعيه في اي فورم باستخدام الكمبوبوكس
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
من الكود المكتوب في المشاركة الاولى انت ترد الوصول على قيمة الكمبوبكس لربطة بشرط ونحو ذلك 
 ان كان هذا هو قصدك فلا تحتتاج سوى فانكشن يرجعلك بقيمة الكمبوبكس .... ولفعل ذلك

اكتب هذا الفانكشن في الموديول

كود :
Public Function F_GetText() As String
        Return Form1.ComboBox1.Text
    End Function
وبعد ذلك استدعيه من اي مكان في البرنامج بهذا الطريقة

كود :
Dim F As String = F_GetText()
سيتم تخزين قيمة الكمبوبكس في المتغير Fبهذه الطريقة
الرد }}}
تم الشكر بواسطة: معاند الحظ , asemshahen5 , ابراهيم ايبو
#6
لازم فورم1
شكرا
واتمني ايجاد البديل
شكرا لك مرة اخري
وانتظر التعديل
الرد }}}
تم الشكر بواسطة: asemshahen5
#7
جرب عمله فانكشن :

PHP كود :
Public Function showtheraseed(ByVal CmbValue as integer)
 
       If conn.State ConnectionState.Open Then conn.Close()
 
       conn.Open()
 
       Dim command As New SqlCommand
        command 
= New SqlCommand
        command
.Connection conn
        Dim purin
purbacksalinsalback As Double
        If conn
.State ConnectionState.Open Then conn.Close()
 
       conn.Open()
 
       command.Connection conn
        command
.CommandType CommandType.Text
        command
.CommandText "SELECT sum(invqu) as sumofpur FROM adpurdet WHERE itcod = " CmbValue 
        Dim dr1 
As SqlDataReader
        If dr1 IsNot Nothing Then dr1
.Close()
 
       dr1 command.ExecuteReader
        Dim dt1 
As New DataTable
        dt1
.Load(dr1)
 
       If dt1.Rows.Count 0 Then
            purin 
0
        Else
            If IsDBNull
(dt1.Rows(0).Item("sumofpur")) Then
                purin 
0
            Else
                purin 
= (dt1.Rows(0).Item("sumofpur"))
 
           End If
 
       End If
        return 
purin
end 
Function 

كود الاستدعاء :

PHP كود :
Txtpurin.Text showtheraseed(ComboBox2.SelectedValue

على فرض ان purin هي القيمة التي تريد ان يعود بها الفانكشن .
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو ليلى
#8
السيد الفاضل
اعطي خطا تحت combobox2.selectedvalue
too many arguments

وهناك استكمال للمطلوب
لاحظ حضرتك انه تم عمل جدول واحد المشتريات
هناك جدول مبيعات ومرتجع مبيعات ومرتجع مشتريات

هل ايضا يمكن اضافة اسماء الجداول كمتغيرات
تعلمنا منك ومن المنتدي الكثيييييييييييير ولا يزال التعليم مستمرا

اقترح الاتي

Public Function showtheraseed(ByVal cmbname As ComboBox)

ثم

WHERE itcod = " & cmbname.SelectedValue & " "

وبالتالي يتبقي اسماء الجداول والقيمة الراجعة من الفنكشن
الرد }}}
تم الشكر بواسطة:
#9
PHP كود :
Public Function showtheraseed(ByVal CmbValue as string,TableName as string,WhereColumn as string,SumColumn as string)
 
       If conn.State ConnectionState.Open Then conn.Close()
 
       conn.Open()
 
       Dim command As New SqlCommand
        command 
= New SqlCommand
        command
.Connection conn
        Dim purin
purbacksalinsalback As Double
        If conn
.State ConnectionState.Open Then conn.Close()
 
       conn.Open()
 
       command.Connection conn
        command
.CommandType CommandType.Text
        command
.CommandText "SELECT sum("SumColumn &") as sumofpur FROM "TableName &" WHERE "WhereColumn &" = " CmbValue 
        Dim dr1 
As SqlDataReader
        If dr1 IsNot Nothing Then dr1
.Close()
 
       dr1 command.ExecuteReader
        Dim dt1 
As New DataTable
        dt1
.Load(dr1)
 
       If dt1.Rows.Count 0 Then
            purin 
0
        Else
            If IsDBNull
(dt1.Rows(0).Item("sumofpur")) Then
                purin 
0
            Else
                purin 
= (dt1.Rows(0).Item("sumofpur"))
 
           End If
 
       End If
 
       return purin
End 
Function 

PHP كود :
Txtpurin.Text showtheraseed(ComboBox2.SelectedValue,"adpurdet","itcod","invqu"
الرد }}}
تم الشكر بواسطة: ابو ليلى , عبد العزيز البسكري
#10
معلهش
ما زال الخطا موجود
تحت الكمبوبوكس 2 وايضا باقي المدخلات
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  إخفاء عنصر Crystal Report waataanys 0 208 13-12-23, 12:37 PM
آخر رد: waataanys
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  ربط جهازين عن طريق الانترنت (public ip) mom22jo 5 1,968 15-05-23, 12:25 AM
آخر رد: ابو محمد محمد محمد

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


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