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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 31 06-02-17, 05:03 PM
آخر رد: المتألق9
  اريد كود تنسيق التاريخ bidaya 10 253 06-02-17, 03:08 AM
آخر رد: bidaya
  الحصول على الرقم التسلسلي للوحة الأم bidaya 4 154 10-01-17, 01:41 AM
آخر رد: bidaya
  جعل الرقم السالب بين قوسين السيد الجوهري 1 114 19-12-16, 05:14 PM
آخر رد: amgad525
  [VB.NET] تنسيق التاريخ داخل داتاجريد tifagreet 5 242 12-12-16, 11:04 AM
آخر رد: tifagreet
  تخمين الرقم الذي اخترت سعود 6 256 19-08-16, 06:56 PM
آخر رد: سعود
  كود لمعرفة الرقم الفريد الخاص بالهارديسك Hard disk mohamed salah bashir 5 631 10-08-16, 01:21 AM
آخر رد: أسامة السالمي
  [VB.NET] تغيير الرقم التسلسلي للهارد ديسك؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ hamada salah90 2 316 01-06-16, 11:49 PM
آخر رد: CLARO
  [كود] كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل البراء 2 686 08-05-15, 12:06 AM
آخر رد: البراء
Shocked Hard Disk Serial كيف أعرف سيريال الهاردسك الخاصي بي او الرقم التسلسلي ims.ataya 2 1,073 21-04-15, 07:54 PM
آخر رد: ims.ataya

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


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