这是新增窗口的取消按钮:如果取消点的快的话 ,就会删除已有的记录,该如何改进
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