تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تنسيق الرقم؟
#1
بسم الله الرحمن الرحيم
السلام عليكم

السؤال:
كيف يمكن تنسيق الرقم حتى يسهل قراءته
اي الرقم 6500
يجب ان يظهر 6,500

تم ارفاق صورة لبرنامج سبق ان عملته بالاكسس فيه تخيل لسؤالي

والف شكر


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل أخي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cost As Integer = 9887655
        MsgBox(Cost.ToString("##,###,###.##"))
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة: kafi2030 , @@أبورائد@@ , mohammed moh , 3booody , kslawy
#3
شكرا اخي
sooriaty
 على اجابتك

تم تجرية الكود 

كود :
 Dim x As Double = Val(Me.txt_Shra.Text)
       txt_Shra.BackColor = Color.White
       txt_Shra.Text = x.ToString("##,###,###.##")

والحمد لله هو يعمل بنجاح.


ولكـــــــــــن
لم اعرف كيف اضع الكود المناسب لجعل الارقام تظهر منسقة، ضمن عرض البيانات بالداتا جريد فيو، حيث ان البيانات يتم عرضها وفق الكود التالي

كود :
 Sub DataGrid_set()
        On Error Resume Next

        Dim xDB As New DB.Data_Kafi
        Dim beda = From d In xDB.Fixed_Bedas
                   Select d

        Dim bsn As New BindingSource()
        bsn.DataSource = beda

        DGV.AutoGenerateColumns = False

        With Motasalsel_Column
            .DataPropertyName = "Beda_id"
            .HeaderText = "متسلسل"
            .Width = 0
            .Visible = False
        End With

        With Beda_Name_Column
            .DataPropertyName = "Beda_Name"
            .HeaderText = "اســـم المــــــادة"
            .Width = 200
            .Visible = True
        End With

        With Shra_Column
            .DataPropertyName = "Shra_Price"
            .HeaderText = "سعر الشراء"
            .Width = 90
            .Visible = True
        End With

        With Mabie_Column
            .DataPropertyName = "Mabee_Price"
            .HeaderText = "سعر المبيع"
            .Width = 90
            .Visible = True
        End With


        With Rabeh_Column
            .DataPropertyName = "Rabeh"
            .HeaderText = "ربــح المــادة"
            .Width = 90
            .Visible = True
        End With

        With Note_Column
            .DataPropertyName = "Beda_Note"
            .HeaderText = "ملاحظــــــات"
            .Width = 392
            .Visible = True
        End With

        With DGV
            .DataSource = bsn
            .ReadOnly = True
            .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .ShowRowErrors = False
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .ShowCellErrors = False
            .AllowUserToAddRows = False                                                 'Disabled or hide (*) Symbol...
            .AllowUserToResizeColumns = False                                           'Disable HearderText Resize Column...
            .AllowUserToResizeRows = False                                               'Disabled  row resize...
            .RowHeadersVisible = True                                                  'To hide Left indicator...
            .DefaultCellStyle.SelectionBackColor = Color.SteelBlue                      'Selection backcolor....
            .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen               'Alternating Backcolor
            .Columns.AddRange(New DataGridViewColumn() {Motasalsel_Column, Beda_Name_Column, Shra_Column, Mabie_Column, Rabeh_Column, Note_Column})
        End With

    End Sub


ارجو تعديل الكود المذكور اعلاه، حتى اتمكن من عرض البيانات العائدة لسعر المبيع وسعر الشراء منسقة، كما تم اجراءه بالادخال.

والف شكر


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته


بحسب الصور المرفقة لاحظت أنك تحتاج تعديل القيم للعمودين الثاني والثالث


فكتبت لك الكود التالي


كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGV.Columns(1).DefaultCellStyle.Format = "##,###,###,###.##"
        DGV.Columns(1).ValueType = GetType(Integer)
        DGV.Columns(2).DefaultCellStyle.Format = "##,###,###,###.##"
        DGV.Columns(2).ValueType = GetType(Integer)
    End Sub







بالتوفيق
الرد }}}
تم الشكر بواسطة: kafi2030 , @@أبورائد@@ , 3booody , kslawy
#5
[b]الف شكر
اخي
sooriaty

على اجابتك

بارك الله فيك
[/b]


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: sooriaty03
#6
السلام عليكم ورحمة الله وبركاته



أيضا ُ يوجد أمر جاهز لهذا الغرض FormatNumber كالتالي
كود :
MsgBox(FormatNumber(12345.89))


السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة: sooriaty03 , T.ALKATHIRI , 3booody , kafi2030 , kslawy
#7
شكراً ابو رائد
جزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  خطأ عن مقارنه الرقم التفعيل Ashraf Elafify 2 257 31-12-23, 11:49 PM
آخر رد: Ashraf Elafify
  كود لعدم تكرار الرقم في قاعدة البيانات yossefsaad370 1 340 28-10-23, 10:29 AM
آخر رد: atefkhalf2004
  كود لا يكرر الرقم yossefsaad370 1 221 26-10-23, 09:54 AM
آخر رد: قناص المدينة
  تكرار الرقم القومى salah525 1 264 02-10-23, 10:14 PM
آخر رد: سالم العنزي
  الصفر في شمال الرقم Hassan.syria 2 494 30-06-23, 12:14 AM
آخر رد: أبو خالد الشكري
  لا استطيع الحصول على الرقم التسلسلي للقرص C ابو محمد محمد محمد 6 736 27-04-23, 01:49 PM
آخر رد: ابو محمد محمد محمد
  [VB.NET] كود لاظهار الاسماء بدالالة الرقم عبدالرحمن الأصبحي 1 481 14-01-23, 06:02 AM
آخر رد: سعود
  [VB.NET] كود لاظهار الاسماء بدالالة الرقم عبدالرحمن الأصبحي 0 266 13-01-23, 02:41 PM
آخر رد: عبدالرحمن الأصبحي

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


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