以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二进制列新增提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83946)

--  作者:联友
--  发布时间:2016/4/20 9:19:00
--  二进制列新增提示


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160420091235.png
图片点击可在新窗口打开查看

学生信息表照片列使用是二进制列,新增行时都会出现上述提示,怎么关闭提示,请指点,谢谢!


--  作者:大红袍
--  发布时间:2016/4/20 9:25:00
--  
 如果你要插入图片,你在插入前,必须先把那一行save一下。
--  作者:联友
--  发布时间:2016/4/21 23:19:00
--  

代码改了是可以调用,这样改对吗?

If Forms("学生基本信息").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("学生基本信息").Controls("PictureBox1")
    If Tables("学生基本信息").Current Is Nothing Then
        pbx.Image = Nothing
    Else
        If Tables("学生基本信息").Current.DataRow.RowState <>  DataRowState.Added Then
            pbx.Image = Tables("学生基本信息").Current.DataRow.SQlLoadImage("照片") \'从后台提取照片并显示
        End If
    End If
End If


--  作者:大红袍
--  发布时间:2016/4/22 0:12:00
--  
If Forms("学生基本信息").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("学生基本信息").Controls("PictureBox1")
    If Tables("学生基本信息").Current Is Nothing OrElse Tables("学生基本信息").Current.DataRow.RowState =  DataRowState.Added Then
        pbx.Image = Nothing
    Else
        pbx.Image = Tables("学生基本信息").Current.DataRow.SQlLoadImage("照片") \'从后台提取照片并显示
    End If
End If

--  作者:联友
--  发布时间:2016/4/23 12:00:00
--  
谢谢!