Question

我的程序中有代码更新数据库。更新数据库后，我将标签文本更改为“Last Update”，然后更改发生更新的实际时间。这部分很完美。

当我关闭程序并重新打开它时，会出现问题。我想编码以检查标签中的日期，以及标签中的日期是否小于我想更新数据库的当前日期。但当我关闭我的程序并重新打开它时，文本中的标签不会停留。

这是我的代码：

Public Sub Screen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    Dim Time_of_Update = CDate(Label_Time_of_Update.Text.Split(" "c)(2).Trim())
    Debug.WriteLine(Time_of_Update)
    If Time_of_Update < Today Then
        Update_Data()
    Else
    End If
End Sub

Private Sub Update_Data()
    Update_Daily()
    Ready_Update_Quarterly_and_Annualy()

    Dim Time_of_Update = DateTime.Now
    Label_Time_of_Update.Text = "Last Updated " & Time_of_Update & ""
End Sub

我该如何解决这个问题？

Answer 1

转到项目属性中的设置并创建LastUpdatedDate设置：

Name ==“LastUpdatedDate”基本上是变量名称
Type ==日期
Scope ==用户（应用范围使它们只读）
Value ==有效日期

这定义了设置名称和数据类型。在代码中：

Dim Time_of_Update = DateTime.Now
Label_Time_of_Update.Text = "Last Updated " & Time_of_Update & ""

My.Settings.LastUpdatedDate = Time_of_Update
My.Settings.Save

下次你跑：

Label_Time_of_Update.Text = My.Settings.LastUpdatedDate

将其保存为DateTime类型可以轻松地在代码中进行日期比较，而不是将其从字符串转换回来。

代码期间标签文本更改但不会更改

1 个答案: