- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 参照论坛里的二进制多附件制作，出现错误 求解！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57449)
-- 发布时间：2014/9/25 9:19:00
-- 参照论坛里的二进制多附件制作，出现错误 求解！
参照论坛里的二进制多附件制作，出现错误 求解！
新增附件代码报错
此主题相关图片如下：1.jpg
此主题相关图片如下：7.jpg
此主题相关图片如下：1.jpg打开附件代码报错
此主题相关图片如下：2.jpg
此主题相关图片如下：2.jpg新增数据后提示错误
（按照帮助教程在导入数据时候排除二进制，结果附件内容被排除后就出问题了）
此主题相关图片如下：3.jpg
此主题相关图片如下：3.jpg保存数据后提示错误
此主题相关图片如下：7.jpg项目例子：
此主题相关图片如下：5.jpg
此主题相关图片如下：6.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学习版项目.foxdb |
此主题相关图片如下：5.jpg此主题相关图片如下：6.jpg[此贴子已经被作者于2014-9-25 9:23:02编辑过]
-- 发布时间：2014/9/25 9:22:00
--
必须要是最新版本的狐表才可以
-- 发布时间：2014/9/25 9:25:00
--
1、你要升级到最新版；
2、你的_Identify列，在sqlserver里面，必须设置成 自动递增。
-- 发布时间：2014/9/25 9:38:00
-- 回复：（李孝春）参照论坛里的二进制多附件制作，出现...
bin 有点甜老师 版本是最新版
解决了新增和打开附件代码报错问题
继续求解！
新增附件时候提示
此主题相关图片如下：8.jpg
-- 发布时间：2014/9/25 9:39:00
--
sqlserver里面，_Identify列 设置成自动递增啊
-- 发布时间：2014/9/25 9:46:00
-- 回复：（有点甜）sqlserver里面，_Identify列 设...
问个弱弱的问题 怎么操作啊
-- 发布时间：2014/9/25 9:47:00
--
此主题相关图片如下：20130909104823394.jpeg
-- 发布时间：2014/9/25 9:51:00
-- 回复：（有点甜）[upload=jpg,20130909104823394.jpeg...
有点甜老师 我的是和你这个一样的参数 两个表的主键都是一样的
此主题相关图片如下：11.jpg
此主题相关图片如下：12.jpg
[此贴子已经被作者于2014-9-25 9:52:13编辑过]
-- 发布时间：2014/9/25 9:59:00
--
无语，你根本就没有设置，设置也没有保存
-- 发布时间：2014/9/25 10:43:00
-- 回复：（李孝春）参照论坛里的二进制多附件制作，出现...
前面几个问题已经解决 现在在附件及图片中单击出错
列表单击代码如下：
\'Dim s As String = e.Sender.Items
\'MessageBox.Show(e.Sender.SelectedItem)
Dim pbx As WinForm.PictureBox = Forms("资源主窗体").Controls("PictureBox1")
If e.Sender.ComboList = ""
Return
End If
If Tables("资源主表").Current Is Nothing Then
pbx.Image = Nothing
Else
\' 判断选择的是不是 图片格式,如果不是 则不执行代码
Dim dt As DataRow = DataTables("资源附件").Find("附件名称=\'" & e.Sender.SelectedItem & "\' and 资源编码=\'" & Tables("资源主表").Current("资源编码") & "\'")
If dt IsNot Nothing \'必须要判断不然 报错
Dim nm() As String = e.Sender.SelectedItem.split(".")
Dim tpjh As String = "bmp,jpg,png,gif"
If tpjh.Contains(nm(nm.Length-1)) Then \'如果是图片格式则显示
pbx.Image = dt.SQlLoadImage("附件名称") \'从后台提取照片并显示
Else
pbx.Image = Nothing
End If
End If
End If
[此贴子已经被作者于2014-9-25 10:43:59编辑过]