NOTEにして、ユーザによって入力されます。私は、CONCAT()メソッドを使用してみまし方法に参加しても、 挿入(編集判明)テキストだけにしようとしたが、それらのどれも として働いていません私は欲しかった。私は部分文字列メソッドが動作するかどうか考えていたが、部分文字列がどのように動作するかについての基本的な考えは しかない。フォームが読み込まれたときと、ユーザが 4桁(OrderNo2.text)を入力して、保存ボタンをクリックしたときに一緒に保存できるように、文字Nを のテキストボックスに挿入します。文字 "N"を挿入する方法とそれに続く4桁の数字。 4桁の数字は、テキストボックス
助けてください。おかげ
Private Sub btnAddOrder_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnAddOrder.Click
isNewRow = True
Dim newRow As DataRow = dsOrders.Tables("Orders").NewRow
Try
If txtOrderNo2.Text.Length = 5 Then
newRow.Item("OrderNo") = txtOrderNo2.Text
If cbo_Product.SelectedIndex <> -1 Then
newRow.Item("Product") = cbo_Product.Text
newRow.Item("Price") = txtPrice2.Text
If txtQuantity.Text <> "" Then
newRow.Item("Quantity") = txtQuantity.Text
newRow.Item("CustomerNo") = txtCustomerNo2.Text
dsOrders.Tables("Orders").Rows.Add(newRow)
'determine row index of new row
rowIndex = dsOrders.Tables("Orders").Rows.Count - 1
'save changes back to the database
daOrders.Update(dsOrders, "Orders")
Else
MessageBox.Show("Please enter the quantity", "Missing Quantity", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Else
MessageBox.Show("Please choose the product", "Missing Price", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Else
MessageBox.Show("Order Number must be 5 digits long!", "Missing Order Number", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
NがTextBoxにある場合、編集可能になります。 TextBoxの左にあるラベルに "N"をつけ、テキストを4桁の数字として検証し、後で連結を実行することをお勧めします。 – Jodrell
あなたの答えをありがとう。私はそれが注文番号であり、テキストボックスの文字列の長さをチェックしてデータベースに保存しているので、そのようにすることはできません – user804437
できます、あなたは 'newRow.Item( "OrderNo")= String.Format( "N {0}"、txtOrderNo2.Text) ' – Jodrell