تقييم الموضوع :
  • 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
شكراً ابو رائد
جزاك الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي طريقة الصحيحه لتصفير الرقم طـلال 12 354 10-09-17, 03:37 AM
آخر رد: طـلال
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 136 22-08-17, 11:50 PM
آخر رد: أبو نوره
Rainbow [كود] الرقم التسلسلي محمد مسافر 7 227 13-08-17, 04:03 PM
آخر رد: silverlight
  [سؤال] سؤال عن الرقم القومى عادل م 2 122 08-08-17, 05:12 PM
آخر رد: Amir_alzubidy
  تنسيق الخط في columnsheader في الداتا جريد فيو غير ثابت تناسيم 1 94 04-08-17, 08:42 AM
آخر رد: zinom
  تنسيق datagridview تناسيم 3 197 15-06-17, 02:16 PM
آخر رد: السندبااد
  نوع ال DbType للمتغير الرقم الذي يحتوي على كسور عشرية تناسيم 1 106 30-05-17, 04:04 PM
آخر رد: alma2
  كيفية تنسيق الفورم مع الادوات khaled12345 2 149 28-05-17, 02:09 AM
آخر رد: khaled12345
  كيفية التحكم في تنسيق عمود خلايا واحد في الداتا جريد تناسيم 3 238 30-04-17, 06:31 PM
آخر رد: alma_fandi
  ما نوع متغير الرقم الذي يحتوي على كسورعشرية ؟ تناسيم 1 146 27-04-17, 01:27 PM
آخر رد: rmlq

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


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