如何在文本框

时间:2016-02-29 13:40:18

标签: vb.net ms-access

这是我自动增量的代码,但是当我将其保存在数据库中时,自动增量的数量再次开始为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") & ""

1 个答案:

答案 0 :(得分:0)

无论您想要保存什么,以及您的应用程序是否附加到任何数据库,VB.NET中都有一个工具可以将值保存到永久存储中。

  1. 右键点击Project,然后点击Properties。这将打开Project Properties
  2. 转到Settings标签,添加具有相应名称,类型,范围和默认值的设置。例如,假设我们的设置是Name = DeptCount,Type = Integer,Scope = User,Value = 0

    enter image description here

  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