以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157042)

--  作者:13796361423
--  发布时间:2020/9/29 16:24:00
--  窗口事件

If Tables("学籍表").Current IsNot Nothing AndAlso Tables("学籍表").Current.IsNull("学籍号") = False Then
    If Tables("学籍表").Current.IsNull("相片") = False Then
        If MessageBox.Show("该生已拍照,是否重拍?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.No Then
            Return
        End If
    End If
    Forms("拍照").Show()
    If Forms("拍照").Opened Then
        Forms("拍照").Controls("FileName").Text = ProjectPath & "Attachments\\" & Tables("学籍表").Current("学籍号") & ".JPG"
    End If
End If

 

 

以上是窗口里一个拍照按钮的事件。 请问这个代码是什么意思? 是调用一个照相的程序, 像这种情况是不是要有一个照相的程序?


--  作者:有点蓝
--  发布时间:2020/9/29 16:27:00
--  
代码是判断当前行相片列有没有值,如果没有就打开"拍照"窗口

从哪抄的代码?看看人家项目里,应该有引用照相组件(程序)的代码