主题：路径不能为空

此主题相关图片如下：2.png

我没有path这个参数，也不知路径在说啥？

''获得各个控件的值
Dim name      As String = e.Form.Controls("name").Value
Dim cardID    As String = e.Form.Controls("cardID").Value
Dim age       As Integer = e.Form.Controls("age").Value
Dim sex       As String = e.Form.Controls("sex").Value
Dim tel       As String = e.Form.Controls("tel").Value
Dim jiguan    As String = e.Form.Controls("jiguan").Value
Dim health    As String = e.Form.Controls("health").Value
Dim rational  As String = e.Form.Controls("rational").Value
Dim partyStanding   As Integer = e.Form.Controls("partyStanding").Value
Dim politicalStatus As String = e.Form.Controls("politicalStatus").Value
Dim leaOrRetire     As String = e.Form.Controls("leaOrRetire").Value
Dim presonalClass   As String = e.Form.Controls("presonalClass").Value
Dim edu             As String = e.Form.Controls("edu").Value
Dim hobbies         As String = e.Form.Controls("hobbies").Value
Dim organName       As String = e.Form.Controls("organName").Value
Dim guanZhu         As String = e.Form.Controls("guanZhu").Value

Dim retiredPost     As String = e.Form.Controls("retiredPost").Value
Dim title           As String = e.Form.Controls("title").Value
Dim address         As String = e.Form.Controls("address").Value
Dim proTecPost      As String = e.Form.Controls("proTecPost").Value
Dim proSpecialty    As String = e.Form.Controls("proSpecialty").Value
Dim partyBranch     As String = e.Form.Controls("partyBranch").Value
Dim retiredDep      As String = e.Form.Controls("retiredDep").Value
Dim jianli          As String = e.Form.Controls("jianli").Value
Dim partyTime       As Date = e.Form.Controls("partyTime").Value
Dim retireTime      As Date = e.Form.Controls("retireTime").Value
Dim workdate        As Date   = e.Form.Controls("workdate").Value
Dim birth           As Date = e.Form.Controls("birth").Value

''处理照片
'Dim ImageString As String
Dim ImageByte() As Byte
If e.Form.Controls("PictureBox1").ImageFile Is Nothing Then
     'Messagebox.show("照片为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'Else
   Dim fl As String = e.Form.Controls("PictureBox1").ImageFile
   Dim fs As New IO.FileStream(fl, IO.FileMode.Open , IO.FileAccess.Read)   '用文件流打开图片
   Dim br As New IO.BinaryReader(fs)   '根据文件流,申明一个二进制阅读器
   'Dim ImageByte() As Byte = br.ReadBytes(fs.Length)   '阅读器读取文件流,并将独到的二进制放入数组ImageByte中,
   ImageByte = br.ReadBytes(fs.Length)   '阅读器读取文件流,并将独到的二进制放入数组ImageByte中,
   'ImageString  = BitConverter.ToString(imageByte).Replace("-", "")  ' SQLCommand 不能直接Insert 二进制,只能拼接SQL语句,所以这里把二进制变成字符
End If
'
'打开家庭信息页面
Messagebox.show("基本信息已填写完成,请填写附加信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1

这是代码

1、msgbox(e.Form.Controls("PictureBox1").ImageFile) 看看，看是不是空值。

2、加入msgbox定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm