主题：这个代码我哪写错了

Dim t As Boolean=False
If e.form.controls("TextBox1").text="" And e.Form.controls("TextBox2").text="" Then
    t=True
End If

If t Then
    messagebox.show("YOU空值")
Else
 Tables("员工资料").AddNew
  Dim i As String = DataTables("员工资料").Compute("max(工号)", "是否离职  = false")
 Dim idx As Integer
  If i > "" Then    '若有最大值,即表数据不为空
     idx = CInt(i.Substring(2,3)) + 1   '提取字符串i里的数字,并加1
  Else
      idx = 1   '若表数据为空 就=1
   End If
   e.Form.Controls("TextBox1").text = "WX" & Format(idx,"000")
End If