以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124487)

--  作者:nxqtxwz
--  发布时间:2018/9/7 10:30:00
--  请教

想在这个表的“照片”列写入用这个表“姓名”列命名的文件名,怎么不行呢?

 

Tables("住宿生信息").Current("照片") = Tables("住宿生信息").Current("姓名") & ".JPG")


--  作者:有点蓝
--  发布时间:2018/9/7 10:42:00
--  
去掉最后一个括号
--  作者:nxqtxwz
--  发布时间:2018/9/7 10:53:00
--  

c.Save(ProjectPath & "\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片" & Tables("住宿生信息").Current("姓名") & ".JPG")     \'保存文件

 

上面的代码出现下面的错误,请问怎么办。

 

.NET Framework 版本:2.0.50727.8793
Foxtable 版本:2018.8.30.1
错误所在事件:窗口,拍照窗口,Button1,Click
详细错误信息:
GDI+ 中发生一般性错误。


--  作者:有点甜
--  发布时间:2018/9/7 11:23:00
--  
改成
 
c.Save("\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片" & Tables("住宿生信息").Current("姓名") & ".JPG")  
 
如果还报错,就是你对应路径的文件夹不存在。
--  作者:nxqtxwz
--  发布时间:2018/9/7 14:40:00
--  

请各位老师帮忙看看这段代码应怎么改呢。目的就是想把拍照的相片保存在:\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG")

它不报错但也不保存怎么办。文件目录是存在的。

 

Dim c As new camera
Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)
    If result = 1
c.Save("\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG") \'保存文件
        MessageBox.Show("照片保存为: " & e.Form.Controls("FileName").Value ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True


--  作者:有点甜
--  发布时间:2018/9/7 15:03:00
--  

改成别的路径是否可以?

 

c.Save("d:\\" & Tables("住宿生信息").Current("姓名") & ".JPG") \'保存文件