منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مطلوب كود يمسح المسافة عند ادخال بيانات بالداتا جريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

أنا كتبت الكود ده علشان يمسح المسافة عند الادخال بطريقة الديتيلزdetails
Private Sub NameTextBox_KeyDown
If NameTextBox.Text = Trim(" ") Or NameTextBox.Text = " " Then
""=NameTextBox.Text
End If
End Sub

عايز كود ينفع للادخال بطريقة الداتا جريد فيو
.. وشكراً
تفضل
كود :
[align=left][b][COLOR="#0000FF"]
Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim k As String
        If e.ColumnIndex = 0 Then
            k = DataGridView1.Item(0, e.RowIndex).Value
            DataGridView1.Item(0, e.RowIndex).Value = k.Replace(" ", "")

        End If[/COLOR][/b][/align]
    End Sub

بحيث ان
e.ColumnIndex = 0 هي رقم العمود الذي تود الغاء المسافات منه
واذا اردت تعميم الغاء المسافات على كل الخلايا
كود :
[align=left][COLOR="#FF0000"]
Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim k As String

        k = DataGridView1.Item(e.ColumnIndex, e.RowIndex).Value
        DataGridView1.Item(e.ColumnIndex, e.RowIndex).Value = k.Replace(" ", "")


    End Sub[/COLOR][/align]
شكرا الاستاذ محمد عمر مصطفى