如何在最后一个数据上添加1？ VB2008

Question

我已经编写了一个程序，我无法将其中的一部分用于工作。 我的程序打开一个欢迎页面（表单）。然后它进入一个新的页面，可以订购食物，数量，价格和总数可以在包含三个列表框的表格中输入。

接受订单后，将打开收据表格。然后，程序打印收据，将所有表单折叠成数据，然后再次打开欢迎页面（表单），从而返回到开头。

我正在尝试在收据表单中添加订单号。但是因为我在表单中将ordernumber定义为0，所以每次程序重新打开此表单时，它会将ordernumber重置为零。因此，指令ordernumber = ordernumber +1不会继续累积。

如何解决这个问题？

pulic ordernumber As Integer = 1
Private Sub Formreceipt_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles           MyBase.Load
Lblorn.Text = ordernumbeordernumber = ordernumber + 1
    Lblorn.Text = ("Order Number:" & ordernumber)

Answer 1

您可以将号码存储在My.Settings

中

进入Project Properties，并添加名为OrderNumber的设置作为用户范围的整数。从你想要的任何价值开始。

然后从代码中您可以访问和更改它，并且当您的应用程序未运行时它也将保持不变。这样，当您明天再次启动程序时，订单号将从中断处继续。

My.Settings.OrderNumber += 1 'increment the order number by one

Lblorn.Text = My.Settings.OrderNumber 'use the order number

Answer 2

保存订单号的方法之一是使用静态字段。例如（抱歉，但在C＃代码上的示例）

1. 创建一些类：

   公共班助手{

   //为保存订单号创建静态字段

   public static int orderNum {get; set;}

   }

2. 使用1步课程： 当你创建订单后，你应该增加柜台：

   ...

   Helper.orderNum ++;

3. 在欢迎页面中使用计数器

注意：在第一次启动你的应用程序时，你应该将计数器设置为零;