以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增窗口的取消按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124446)
--  作者：susu312
--  发布时间：2018/9/6 13:28:00
--  新增窗口的取消按钮

这是新增窗口的取消按钮：如果取消点的快的话 ，就会删除已有的记录，该如何改进

 

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
--  作者：有点甜
--  发布时间：2018/9/6 15:06:00
--  
With Tables("person")
    If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Added Then
        .Current.Delete
    Else
        msgbox("不能删除")
    End If
End With
--  作者：susu312
--  发布时间：2018/9/6 19:41:00
--  
以下是引用有点甜在2018/9/6 15:06:00的发言：
With Tables("person")
    If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Added Then
        .Current.Delete
    Else
        msgbox("不能删除")
    End If
End With

 

 

新增窗口的afterload事件中有如下代码：

Tables("person").AddNew()
Tables("person").Current.Save()
Tables("family").Filter="1=2"

 

红色代码是因为照片必须在行保存的状态下才可以插入 ，是二进制方式插入照片，所以取消按钮如果设置成删除新增的话， 并没有效果，因为，没有新增的行，
--  作者：有点甜
--  发布时间：2018/9/6 19:58:00
--  
以下是引用susu312在2018/9/6 19:41:00的发言：

 

红色代码是因为照片必须在行保存的状态下才可以插入 ，是二进制方式插入照片，所以取消按钮如果设置成删除新增的话， 并没有效果，因为，没有新增的行，

 

1、你可以添加辅助列，标记这一行是【新增】的行；

 

2、你可以控制【取消】按钮只能执行一次，也就是控制 e.sender.enabled = False

[此贴子已经被作者于2018/9/6 21:35:31编辑过]
--  作者：susu312
--  发布时间：2018/9/6 21:32:00
--  
以下是引用有点甜在2018/9/6 19:58:00的发言：

 

1、你可以添加辅助列，标记这一行是【新增】的行；

 

2、你可以控制【取消】按钮只能执行一次，也就是控制 e.serder.enabled = False

 

老师，我如何控制这个按钮只能执行一次，第二次就 enabled=false
--  作者：有点甜
--  发布时间：2018/9/6 21:34:00
--  
以下是引用susu312在2018/9/6 21:32:00的发言：

 

老师，我如何控制这个按钮只能执行一次，第二次就 enabled=false

 

click事件加入代码

 

 e.sender.enabled = False

[此贴子已经被作者于2018/9/6 21:35:17编辑过]