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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تنسيق datagridview تناسيم 3 98 15-06-17, 02:16 PM
آخر رد: السندبااد
  نوع ال DbType للمتغير الرقم الذي يحتوي على كسور عشرية تناسيم 1 49 30-05-17, 04:04 PM
آخر رد: alma2
  كيفية تنسيق الفورم مع الادوات khaled12345 2 97 28-05-17, 02:09 AM
آخر رد: khaled12345
  كيفية التحكم في تنسيق عمود خلايا واحد في الداتا جريد تناسيم 3 138 30-04-17, 06:31 PM
آخر رد: alma_fandi
  ما نوع متغير الرقم الذي يحتوي على كسورعشرية ؟ تناسيم 1 90 27-04-17, 01:27 PM
آخر رد: rmlq
  كشف رقم المتصل باستخدام جهاز مودم كاشف الرقم doha_kareem 0 68 03-04-17, 01:22 PM
آخر رد: doha_kareem
  [VB.NET] مشكلة في تنسيق تقرير Reports Veiwer خلاف 2 146 22-03-17, 03:28 AM
آخر رد: هاوي1995
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 115 06-02-17, 05:03 PM
آخر رد: المتألق9
  اريد كود تنسيق التاريخ bidaya 10 472 06-02-17, 03:08 AM
آخر رد: bidaya
  الحصول على الرقم التسلسلي للوحة الأم bidaya 4 320 10-01-17, 01:41 AM
آخر رد: bidaya

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


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