Question

请帮我这个代码。

Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click

Dim cmd as New oleDbCommand
cmd.CommandType = CommandType.text
cmd.Connection = cnn
cmd.Command.text ="Select max (Receipt_No) from [Cash_Register]"
cnn.Open()
Dim A As String = Convert.ToString(cmd.ExecuteScalar())
cnn.Close()
Label.text = A + 1
End Sub

我正在使用MS Access数据库，如果最后一个Receipt_No在特定表格中是“ABC00004”（“ABC00001，ABC00002，ABC00003，ABC00004”）。如果我单击按钮，则下一个Receipt_No“ABC00005”仅显示在Label.text中。

Answer 1

您应该删除结果的非数字部分，将数字部分转换为实数并执行增量，然后使用非数字部分和所需的前导零数重建字符串

所以按照你的例子，A变量等于“ABC00004”

Dim A = "ABC00004"
Dim n = Convert.ToInt32(v.SubString(3)) + 1
A = string.Format("{0}{1:D5}", v.Substring(0,3), n)

VB.net通过按钮点击增加标签，

1 个答案: