以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  是这么写不？？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162030)
--  作者：yetle
--  发布时间：2021/4/3 9:47:00
--  是这么写不？？
 Dim dr As DataRow
dr = DataTables("款号登记").SQLFind("款号 = \'" & Tables("销售订单_table1").current("款号") & "\'")

If Forms("销售订单款式图").Opened Then \'如果窗口已经打开    
    Dim pbx As WinForm.PictureBox = Forms("销售订单款式图片").Controls("PictureBox1")    
    If Tables("销售订单_table1").Current Is Nothing Then        
        pbx.Image = Nothing        
    Else        
        pbx.Image = dr("款式图") \'从后台提取照片并显示        
    End If    
End If
[此贴子已经被作者于2021/4/3 10:40:48编辑过]
--  作者：有点蓝
--  发布时间：2021/4/3 10:21:00
--  
图片列存储的是什么内容？在本机还是服务器？共享还是ftp？
msgbox(dr("款式图片"))
--  作者：yetle
--  发布时间：2021/4/3 10:24:00
--  
dr（"款式图"）=/pfgx.jpg

提示：无法将类型为“System.String”的对象强制转换为类型“System.Drawing.Image”。


图片点击可在新窗口打开查看此主题相关图片如下：3627fa8a-b34e-4d14-a64f-5387fa2573a9.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/4/3 10:52:16编辑过]
--  作者：有点蓝
--  发布时间：2021/4/3 10:56:00
--  
ftp文件要下载到本机才能使用：http://www.foxtable.com/webhelp/topics/1410.htm

Dim dr As DataRow
dr = DataTables("款号登记").SQLFind("款号 = \'" & Tables("销售订单_table1").current("款号") & "\'")
If Forms("销售订单款式图").Opened Then \'如果窗口已经打开    
    Dim pbx As WinForm.PictureBox = Forms("销售订单款式图片").Controls("PictureBox1")    
Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
dim name as string = "e:\\images\\" & filesys.GetName(dr("款式图片"))
If ftp1.Download(dr("款式图片"),name) = True Then
    pbx.Image  = getimage(name)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
--  作者：yetle
--  发布时间：2021/4/3 11:21:00
--  
 提示下载失败
Dim dr As DataRow
dr = DataTables("款号登记").SQLFind("款号 = \'" & Tables("销售订单_table2").current("款号") & "\'")

If Forms("销售订单款式图片").Opened Then \'如果窗口已经打开    
    Dim pbx As WinForm.PictureBox = Forms("销售订单款式图片").Controls("PictureBox1")    
Dim ftp1 As new ftpclient
ftp1.host="196.128.38.198"
ftp1.Account = "anyone"
ftp1.password = "0000"

Dim name As String = "e:\\images\\" & filesys.GetName(dr("款式图"))
If ftp1.Download(dr("款式图"),name) = True Then
    pbx.Image  = getimage(name)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If    
End If

在直接引用的窗口是正常显示的

图片点击可在新窗口打开查看此主题相关图片如下：0b629ccd-6921-4678-a55b-1436a0bc5c78.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/4/3 11:31:06编辑过]
--  作者：有点蓝
--  发布时间：2021/4/3 11:32:00
--  
到底是局域网共享，还是ftp管理的图片，这个2种完全不同的用法！
--  作者：yetle
--  发布时间：2021/4/3 11:36:00
--  
 是FTP的，==，我检查了一下，地址填错了


图片点击可在新窗口打开查看此主题相关图片如下：023bb146-d34a-459c-aebf-be68207c9983.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/4/3 11:38:29编辑过]
--  作者：有点蓝
--  发布时间：2021/4/3 11:43:00
--  
3楼图片列属性里去掉根目录这个设置。

到命令窗口打开ftp管理器，看看这图片真正的路径是什么

Dim ftp1 As new ftpclient
ftp1.host="196.128.38.198"
ftp1.Account = "anyone"
ftp1.password = "0000"
ftp1.OpenManager

另外，既然直接绑定了表格，到表格里选中对应的记录不就行了，何必搞那么复杂？
--  作者：yetle
--  发布时间：2021/4/3 11:51:00
--  
根目录早已经去掉，ip地址也调整了，绑定了表格的窗口是可以正常显示的，这个是在另外一个窗口调用，没法绑定吧，目前还是下载失败
 Dim dr As DataRow
dr = DataTables("款号登记").SQLFind("款号 = \'" & Tables("销售订单_table2").current("款号") & "\'")

If Forms("销售订单款式图片").Opened Then \'如果窗口已经打开    
    Dim pbx As WinForm.PictureBox = Forms("销售订单款式图片").Controls("PictureBox1")    
Dim ftp1 As new ftpclient
ftp1.host="192.168.38.198"
ftp1.Account = "anyone"
ftp1.password = "0000"

Dim name As String = "E:\\images\\" & filesys.GetName(dr("款式图"))   （我看看是不是这里多了一斜杠）
If ftp1.Download(dr("款式图"),name) = True Then
    pbx.Image  = getimage(name)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If    
End If
[此贴子已经被作者于2021/4/3 11:54:44编辑过]
--  作者：有点蓝
--  发布时间：2021/4/3 12:13:00
--  
到命令窗口打开ftp管理器，看看这图片真正的路径是什么

Dim ftp1 As new ftpclient
ftp1.host="196.128.38.198"
ftp1.Account = "anyone"
ftp1.password = "0000"
ftp1.OpenManager