如何在文本框中的一个表中自动增加不同部门

Question

这是我用于自动增量的代码，但是当我将其保存在数据库中时，自动增量的数量再次开始为1。 我需要一个稳定的东西，每个部门都有不同的职位，并且当年份更改时，它又从1开始。 示例输出应为：

10-ppmn-16-0001
10-fcrsm-16-0001


 Static cnt As Integer
        cnt = cnt + 1


prnotxt.Text = ""10""-"" & deptcmb.Text & "-" & Now.Date.ToString("yy") & "-" & Format(cnt, "0000") & ""

Answer 1

无论您要保存什么内容，以及是否将应用程序附加到任何数据库，VB.NET都有一种功能可以将值保存到永久存储中。

1. 右键单击您的Project ，然后单击Properties 。 这将打开“ Project Properties 。

2. 转到Settings选项卡，并添加具有适当名称，类型，范围和默认值的设置。 例如，假设我们的设置为Name = DeptCount，Type = Integer，Scope = User，Value = 0

   

3. 现在，您可以轻松保存并在应用程序重新启动时获取保存的值。 下面提供了示例代码：

    '-- to save the value in settings. My.Settings.DeptCount = 100 My.Settings.Save() '-- to get back the saved value Dim count As Integer = My.Settings.DeptCount