تقييم الموضوع :
  • 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 0 04-02-18, 11:49 PM
آخر رد: Basil Abdallah
  [VB.NET] التصدير الى الإكسل و تنسيق الخلايا و رسم الحدود حسب عدد السجلات larbihamri 4 143 06-01-18, 08:58 AM
آخر رد: محمود صالح
  أستفسار تنسيق نص داخل الكرستال طـلال 4 95 28-12-17, 03:24 PM
آخر رد: silverlight
  ماهي طريقة الصحيحه لتصفير الرقم طـلال 12 526 10-09-17, 03:37 AM
آخر رد: طـلال
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 208 22-08-17, 11:50 PM
آخر رد: أبو نوره
Rainbow [كود] الرقم التسلسلي محمد مسافر 7 338 13-08-17, 04:03 PM
آخر رد: silverlight
  [سؤال] سؤال عن الرقم القومى عادل م 2 191 08-08-17, 05:12 PM
آخر رد: Amir_alzubidy
  تنسيق الخط في columnsheader في الداتا جريد فيو غير ثابت تناسيم 1 146 04-08-17, 08:42 AM
آخر رد: zinom
  تنسيق datagridview تناسيم 3 301 15-06-17, 02:16 PM
آخر رد: السندبااد
  نوع ال DbType للمتغير الرقم الذي يحتوي على كسور عشرية تناسيم 1 166 30-05-17, 04:04 PM
آخر رد: alma2

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


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