主题：新增窗口的取消按钮

With Tables("person")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With

''加载排序

'' 获取登录用户单位的辅助列名称,用于设置加载条件
Dim organFuZhu As String=""
Dim dr2  As  DataRow
dr2 =  DataTables("organList").Find("[organName] = '" & _UserOrgan &  "'") '否则在单位表查找同名的单位行,将找到的行赋值给变量dr
If dr2 IsNot Nothing Then  '如果找到了同名的单位行,也就是dr不是Nothing
      organFuZhu = dr2("fuZhu")
Else
      Messagebox.show("登录用户单位不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End  If

''设置加载条件,依赖于当前登录用户所属单位的辅助列
DataTables("person").LoadFilter = "fuZhu Like '" & organFuZhu & "%'"
DataTables("person").LoadTop = Nothing
DataTables("person").Load
Tables("person").sort = "fuZhu"
e.Form.Close