错误告诉你,附件内容不存在,搜索代码中“附件内容”,就知道问题在于:
Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("物料附件").Find("附件内容='" & lbx.SelectedItem & "' and 物料编码='" & Tables("物料信息").Current("物料编码") & "'")
Dim fl As String = ProjectPath & "附件\" & lbx.SelectedItem
因为附件内容是二进制列,这一列是没有加载到DataTable的。
其实这种问题,到你这个程度,应该可以很轻松地解决的哦,直接用这个方法找出出错的代码:
http://www.foxtable.com/help/topics/1485.htm
马上就知道原因了。