Foxtable(狐表)用户栏目专家坐堂 → 为什么不能显示二进制图片?


  共有3057人关注过本帖树形打印复制链接

主题:为什么不能显示二进制图片?

帅哥哟,离线,有人找我吗?
hongye
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
为什么不能显示二进制图片?  发帖心情 Post By:2020/3/1 0:47:00 [显示全部帖子]

AfterLoad事件如下:
Dim cmd As New SQLCommand
Dim ds As DataTable
cmd.C
cmd.CommandText = "SELECT * Fr om {核价系统}"
ds = cmd.ExecuteReader(True)
Dim drt As DataTable = DataTables("核价系统_Table1")
Dim tbl As Table = Tables("核价系统_Table1")
tbl.DataSource = ds

窗口”核价系统“表“Table1” CurrentChanged 事件如下:
Dim pbx As WinForm.PictureBox = Forms("核价系统").Controls("PictureBox1")
If Tables("核价系统_Table1").Current Is Nothing Then
MessageBox.Show( "1")
    pbx.Image = Nothing
Else
MessageBox.Show( "2")
    pbx.Image = Tables("核价系统_Table1").Current.DataRow.SQlLoadImage("款式图片") '从后台提取照片并显示
End If


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看


为什么不能显示二进制图片呢
[此贴子已经被作者于2020/3/1 0:50:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/3/1 14:21:00 [显示全部帖子]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.2.28.8
错误所在事件:核价系统_Table1,CurrentChanged
详细错误信息:
无法将类型为“Foxtable.WinForm.Table”的对象强制转换为类型“Foxtable.Table”。

 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/3/1 20:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

参照狐狸爸爸的代码,还是出现错误哦



 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/3/1 20:08:00 [显示全部帖子]

AfterLoad

Dim cmd As New SQLCommand

Dim ds As DataTable

cmd.C

cmd.CommandText = "SELECT * Fr om {订单核价系统}"

ds = cmd.ExecuteReader(True)

Dim drt As DataTable = DataTables("核价系统主表_Table1")

Dim tbl As Table = Tables("核价系统主表_Table1")

tbl.DataSource = ds

e.Form.Controls("lable1").Text= "Ok"

Tables("核价系统主表_Table1").RaiseCurrentChanged 

tbl.SetColVisibleWidth("客户|95|客户担当|70|品名|160|款号|170|样衣款号|160|核价金额|70|技术担当|70|")

tbl.Cols("技术担当").TextAlign = TextAlignEnum.Right

tbl.Cols("品名").TextAlign = TextAlignEnum.Right

tbl.Cols("客户担当").TextAlign = TextAlignEnum.Right

tbl.Cols("款号").TextAlign = TextAlignEnum.Center

tbl.Cols("样衣款号").TextAlign = TextAlignEnum.Center

tbl.SetHeaderCellForeColor("核价金额",Color.Blue)


CurrentChanged

If e.Form.Controls("lable1").Text <> "Ok" Then  

   Return

End If

Dim pbx As WinForm.PictureBox = Forms("核价系统主表").Controls("PictureBox1")

If Tables("核价系统主表_Table1").Current Is Nothing Then

    pbx.Image = Nothing

Else

    pbx.Image = Tables("核价系统主表_Table1").Current.DataRow.SQlLoadImage("款式图片") '从后台提取照片并显示

End If


还是出错,这是为什么呢

[此贴子已经被作者于2020/3/1 20:41:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hongye
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:2949 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2020/3/1 20:59:00 [显示全部帖子]

End If

    p

End If


这个p是什么?


 回到顶部