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

表事件

安全检查整改单_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

安全检查整改单_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

安全检查整改单_DataRowLockedChanged

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

dr.Locked = e.DataRow.Locked

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

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

谢谢行了

还有一个问题比如说我从一个表复制 100行数据我现在要先在目标表里先增加100空行才能粘贴

能不能就像Excel 直接复制粘贴不够的行自动增加了

参考

下载信息 [文件大小：296.0 KB 下载次数：34]
点击浏览该文件:粘贴新增n行.table

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

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

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

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

看到过忘了这个事了谢谢现在还有一个比较麻烦的问题

我用的身份证读卡器就是实例那个我想要把身份证图片也保留下来怎么弄

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

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的发言：
这个我弄好了是想把身份证的复印件留下保存

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

主题：[求助]解除锁定状态