专家坐堂-[求助]解除锁定状态Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]解除锁定状态  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119971)

--  作者：q2520
--  发布时间：2018/6/5 9:13:00
--  [求助]解除锁定状态

表事件

安全检查整改单_PrepareEdit

If User.Group <> "" Then
    e.Cancel = True
End If

安全检查整改单_DataColChanged

If e.DataCol.Name = "审核" Then
    If e.NewValue = True Then
        e.DataRow.Locked = True
    End If
End If

安全检查整改单_DataRowLockedChanging

If User.Group <> "" Then
    e.Cancel = True
End If

If e.DataRow("审核") = False Then \'未审核通过的行
    If e.DataRow.Locked = False Then \'如果此行目前未锁定,也就是准备锁定此行
        Messagebox.show("不能锁定未审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    End If
ElseIf e.DataRow("审核") = True Then \'已经审核通过的行
    If e.DataRow.Locked = True Then \'如果此行已锁定,也就是准备取消锁定此行
        If User.Group <> "" Then
            Messagebox.show("只有经理才能解锁已经审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        End If
    End If
End If

安全检查整改单_DataRowLockedChanged

For Each dr As DataRow In e.DataRow.GetChildRows("整改反馈")
    dr.Locked = e.DataRow.Locked
Next

这是我现在用的代码审核锁定正常但是我不能解锁行那个√点了没反应老师给看看哪里代码需要修改

--  作者：有点甜
--  发布时间：2018/6/5 9:31:00
--

click或者doubleclick事件

If e.Col.name = "审核" Then
    e.Row("审核") = not e.Row("审核")
    If e.Row("审核") = True Then
        e.Row.locked = True
    End If
End If

--  作者：q2520
--  发布时间：2018/6/5 9:52:00
--
谢谢行了
还有一个问题比如说我从一个表复制 100行数据我现在要先在目标表里先增加100空行才能粘贴
能不能就像Excel 直接复制粘贴不够的行自动增加了

--  作者：有点甜
--  发布时间：2018/6/5 9:54:00
--

参考

下载信息  [文件大小：296.0 KB  下载次数：34]

点击浏览该文件:粘贴新增n行.table

--  作者：q2520
--  发布时间：2018/6/6 8:43:00
--

Dim t As Table = e.Table
If e.Control = True AndAlso t.Current IsNot Nothing Then
Dim r As Integer = t.RowSel
If e.KeyCode = keys.V Then
Dim str As String = ClipBoard.GetText
Dim nr As Integer = str.Replace(vblf,"").Trim(vbcr).Split(vbcr).Length + (t.RowSel) - t.Rows.Count
If nr > 0 Then
t.AddNew(nr)
t.Select(r,t.ColSel)
End If
End If
End If

写在全局表事件里为什么不行

--  作者：有点甜
--  发布时间：2018/6/6 9:18:00
--

全局表事件，需要开启事件才有有效的。

http://www.foxtable.com/webhelp/scr/0671.htm

--  作者：q2520
--  发布时间：2018/6/6 9:27:00
--
看到过忘了这个事了谢谢现在还有一个比较麻烦的问题
我用的身份证读卡器就是实例那个我想要把身份证图片也保留下来怎么弄

--  作者：有点甜
--  发布时间：2018/6/6 9:38:00
--

实例里面，就会保存图片的，如代码

FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\\Attachments\\" & r("身份证号码") & ".bmp",True) \'照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

http://www.foxtable.com/webhelp/scr/2417.htm

--  作者：q2520
--  发布时间：2018/6/6 9:47:00
--
这个我弄好了是想把身份证的复印件留下保存

--  作者：有点甜
--  发布时间：2018/6/6 9:52:00
--

以下是引用q2520在2018/6/6 9:47:00的发言：
这个我弄好了是想把身份证的复印件留下保存

身份证复印件怎么保留？你有扫描仪、高拍仪、摄像头吗？要拍照扫描才能保留复印件的。