هل تريد من خلال ذلك عرض النص بحالته تماماً كما أدخلته في حالة الإضافة بحيث يكون على هيئة عدة أسطر؟
إن كان كذلك، فقم بتخزين النص في حالة الإضافة بالطريقة التالية:
كود :
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 عادي.
أما إن كان الهدف غير ذلك فاعذرني.
