运行窗口就错

e.Form.BaseForm.windowstate = 2
Dim schoolName As String = user.group
Dim c7 As String = trim(e.Form.controls("combobox7").text)
Dim cmd As New SQLCommand
Dim dt As DataTable
e.Form.Controls("label2").text = "内江市东兴区中考报名管理"
cmd.c
cmd.CommandText = "SELE CT DISTINCT ksmc,xxmc,bjdm From {中考表}"
dt = cmd.ExecuteReader()
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv3.BuildTree(dt,"ksmc|xxmc|bjdm")
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.c
cmd1.CommandText = "SE LECT DISTINCT 考试名称,学校名称,学校班级 From {生地报名库}"
dt1 = cmd1.ExecuteReader()
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree(dt1,"考试名称|学校名称|学校班级")

Dim lb2 As WinForm.Label = e.Form.Controls("Label2")
If e.Form.width > lb2.Width
    lb2.Left = (e.Form.width - lb2.Width ) / 2
End If
Dim lb4 As WinForm.Label = e.Form.Controls("Label4")
If e.Form.width > lb4.Width
    lb4.Left = (e.Form.width - lb4.Width ) / 2
End If

Dim lb16 As WinForm.Label = e.Form.Controls("Label16")
If e.Form.width > lb16.Width
    lb16.Left = (e.Form.Controls("table3").width - lb16.Width ) / 2
End If
Dim lb3 As WinForm.Label = e.Form.Controls("Label3")
If e.Form.width > lb3.Width
    lb3.Left = (e.Form.Controls("table3").width - lb3.Width ) / 2
End If
e.Form.TimerEnabled = True
Dim t3 As Table = Tables("中考县区端_table3")
Dim t4 As Table = Tables("中考县区端_table4")
Dim t1 As Table = Tables("中考县区端_table1")

t4.sort= "学校名称,备注,报名号"
t3.sort= "bmh"
Tables("中考表").AllowEdit=True
Tables("中考管理").GrandTotal = True

For Each c As Col In t1.Cols
    If c.IsNumeric Then
        c.GrandTotal = True
    End If
Next
t1.GrandTotal = True \'显示合计模式

之前没这问题，可运行，也没改AFTERLOAD

计时器没用了，