主题：生成菜单

以下黄色代码的功能怎么实现不了呢？一直报错

If e.Table.Current IsNot Nothing Then
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("ShuDaShuJuZiDian").FindRow(dr)
    If wz >=0 Then
        Tables("ShuDaShuJuZiDian").Position = wz
    End If
    If Tables("ShuDaShuJuZiDian").current.Isnull("审核") = True
        e.form.strips("主菜单").Items("Edit").items("ShenHe").Enabled = False
        e.form.strips("主菜单").Items("Edit").items("QuXiaoShenHe").Enabled = True
   Else
       
        e.form.strips("主菜单").Items("Edit").items("ShenHe").Enabled = True
        e.form.strips("主菜单").Items("Edit").items("QuXiaoShenHe").Enabled = False
    End If
End If