主题：[求助]筛选检查框选中的行，并输出

此主题相关图片如下：4.jpg

PrepareEdit 里面的编码改成了这个，顺便看看对不对。

如果表单上的“已完成”被勾选，那这一行都不能修改，除非是“开发者”。

 代码没问题，你现在操作有什么问题？

doubleClick事件有问题

 

If Forms("窗口1").Opened Then

    Dim fi As Winform.CheckBox = forms("窗口1").controls("已完成")

    '原来代码

Else

    msgbox("窗口没打开")

End If

DoubleClick  

这样写不行么

  dim fi As row = Tables("表A").Current

if fi("已完成") =False then

 Forms(修改_故障维修情况").Open()

else

MessageBox.Show("已确认完成,无法修改!","提示")

endif

 

 

dim fi As row = Tables("表A").Current

if fi isnot nothing 

 fi("已完成") =False then

e.cancel = true

 Forms(修改_故障维修情况").Open()

else

MessageBox.Show("已确认完成,无法修改!","提示")

endif

end if

这样也不行耶!

fi isnot nothing 后面可以再加个表达式，然后再用then？

表单里面直接打开窗口那句，有错！

表单中勾选已经完成的，可以显示对话框，可是未勾选的，设定打开修改的窗口，则显示错误！

 

此主题相关图片如下：1.jpg

doubleclick事件

 

If e.Row("已完成") =False Then
    e.cancel = True
    Forms("修改_故障维修情况").Open()
Else
    MessageBox.Show("已确认完成,无法修改!","提示") 
End If

 

谢谢，基本可以了，就是修改的窗口那句不对！

很奇怪，一模一样的句子，doubleclick事件里面就是出错，但是DoubleClickRowHeader里面就是对的，然后我将DoubleClickRowHeader里面的代码拷贝到Ddoubleclick事件里面，就变成没错误了！