项目事件 

计划管理 

表事件 

窗口表事件 

窗口与控件事件 

安全运行记录_AfterLoad

Dim lbl As WinForm.Label

lbl = e.Form.Controls("label17")

lbl.Text = "今天是" & Date.today & ",欢迎您!"

Dim lab1 As Date = Date.Today

Dim year As Integer = lab1.Year

lbl = e.Form.Controls("label1")

lbl.Text =  year

Dim month As Integer = lab1.Month

lbl = e.Form.Controls("label18")

lbl.Text =  month

Dim day As Integer = lab1.Day

lbl = e.Form.Controls("label19")

lbl.Text =  day

Dim lab2 As Date = Tables("表C")(0,"事故发生日期")

Dim t As TimeSpan = lab1 - lab2

lbl = e.Form.Controls("label20")

lbl.Text =  t.Days

Dim year1 As Integer = lab2.Year

lbl = e.Form.Controls("label21")

lbl.Text =  year1

Dim month1 As Integer = lab2.Month

lbl = e.Form.Controls("label22")

lbl.Text =  month1

Dim day1 As Integer = lab2.Day

lbl = e.Form.Controls("label23")

lbl.Text =  day1

安全运行记录_TextChanged

Dim lab1 As Date = Date.Today

Dim week As String = lab1.DayOfWeek

With Tables("表B")

    Dim dr As Integer

    dr = .Find(week, 0, "星期", False, False, True)

    If dr > -1 Then

        .Position = dr

    End If

End With

自定义函数

全局代码