[أبوبكر سويدان]

هل تريد من خلال ذلك عرض النص بحالته تماماً كما أدخلته في حالة الإضافة بحيث يكون على هيئة عدة أسطر؟
إن كان كذلك، فقم بتخزين النص في حالة الإضافة بالطريقة التالية:

كود :

Private Sub SaveTOXOtest()
        Dim SSql As String = "INSERT INTO ToxoTestslist (TestName,NormalValue,CostPrice) VALUES(@TestName,@NormalValue,@CostPrice)"
        Dim SCMD As New OleDbCommand

        If Con.State = ConnectionState.Closed Then
            Con.Open()

            With SCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SSql

                .Parameters.AddWithValue("TestName", txtTestName.Text)
                .Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))
                .Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))

                .ExecuteNonQuery()
                .Dispose()

            End With
            Con.Close()
        Else
            With SCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SSql

                .Parameters.AddWithValue("TestName", txtTestName.Text)
                .Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))
                .Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))

                .ExecuteNonQuery()
                .Dispose()

            End With
            Con.Close()
        End If
    End Sub

فلاحظ السطر التالي:

كود :

.Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))

وهو المسؤول عن تخزين النص مع تعدد الأسطر من خلال Textbox عادي.

أما إن كان الهدف غير ذلك فاعذرني.