If Forms("查看窗口").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("查看窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else
         pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示
    End If
End If

老师，如何从后台加载之前判断照片是否存在，或者不存在就不加载好了，但是现在这个，后台没照片，就会弹出错误，参数无效

老师，后台有照片它就不会报错，无照片的时候 ，打开窗口后就会报参数无效的错？我该如何排查呀？

更改窗口的afterload事件中有如下代码：

\'\'照片设置
Tables("person").RaiseCurrentChanged()

我记得直接基于datarow给二进制列插入图片，无论有么有照片 ，都不会报参数无效这个错误，

但是，现在我新增是通过sql后台插入二进制照片的，

我新增一个成员没有照片 ，然后点击更改窗口，就弹出参数无效，然后打开更改窗口？

我这时候是不是不能用这段代码了?

难道是我应该在afterload里面用这个代码？

Dim cmd As SQLCommand = new SQLCommand()
cmd.ConnectionName = "SqlServerDB"
cmd.CommandText = "select 照片列 from 员工表 where 姓名 = \'张三\'"

Dim imageByte() As Byte = cmd.ExecuteScalar()    \'查询数据，并存入字节数组

Dim ms As New IO.MemoryStream(imageByte)       \'将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms)      \'将二进制流转换为图片
e.Form.Controls("PictureBox1").Image = image      \'显示图片

注释掉这段代码测试

Dim cmd As SQLCommand = new SQLCommand()
cmd.ConnectionName = "SqlServerDB"
cmd.CommandText = "select 照片列 from 员工表 where 姓名 = \'张三\'"

Dim imageByte() As Byte = cmd.ExecuteScalar()    \'查询数据，并存入字节数组

Dim ms As New IO.MemoryStream(imageByte)       \'将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms)      \'将二进制流转换为图片
e.Form.Controls("PictureBox1").Image = image      \'显示图片

我本来是在表的currentChanged事件中有如下代码：

If Forms("更改窗口").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("更改窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else
        pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示
    End If
End If

If Forms("查看窗口").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("查看窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else
         pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示
    End If
End If

在更改和查看窗口有如下代码：

Tables("person").RaiseCurrentChanged()

然后，在新增窗口增加人员无照片，打开更改和查看窗口前都会报错：参数无效

本来就没有下面这段代码

1、上传全部数据后，重新添加数据测试；

2、做一个access数据源的实例发上来测试。

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

点击浏览该文件:新建文本文档 (2).txt

老师，您一看里面的代码就懂了， 我现在有个问题就是，入党时间没空如何，通过参数化的方式写入数据库？

1、我是这么写的，然后就再没问题了
If partyTime=Nothing Then
cmd.Parameters.Add("@partyTime",dbnull.value)
Else
cmd.Parameters.Add("@partyTime",partyTime)
End If

Dim txt As Date = e.Sender.Text
If txt = "" Then

2、判断date类型为空,到底应该用 = nothing 还是= "" ,有时候nothing不行

判断是否为空，这样写，如

If partyTime=Nothing Then

如果是对象，这样写

If partyTime is Nothing Then