这个语句放进函数执行不了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这行代码：

FileSys.CopyFile("c:\mydata\idcard1.jpg", ProjectPath & "Attachments\" & zp & ".jpg",True) '照片复制到Attachments目录

在命令窗口执行有结果，但放进自定义函数后却不能得到结果，为什么？谢谢！

因为你写错了咧,这么简单的道理

自定义函数是有一定格式的,你贴出来我们才知道你哪里写错了

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

没有任何错误提示，而且这个代码，基本就是抄帮助文档身份证阅读器的读取代码，除了拷贝照片和把照片文件名写在照片列得不到想要的结果外，其他的都有结果。代码如下：

Dim Info As String

Info = FileSys.ReadAllText( "c:\mydata\idcard.txt", Encoding.Default) '读取生成的文本文件

info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行

Dim zp As String

Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组

Dim r As Row = Tables("xsjbxxb").AddNew

r("xsxm") = pars(0).Trim()

r("sfzhm") = pars(1).Trim()

r("xb") = pars(2).Trim()

r("mz") = pars(4).Trim()

r("birthday")=pars(4).Trim()

r("hjszd") = pars(5).Trim()

zp=r("sfzhm")

FileSys.CopyFile("c:\mydata\idcard1.jpg", ProjectPath & "Attachments\" & zp & ".jpg",True) '照片复制到Attachments目录

r("IDcard1") =zp & ".jpg"

Dim Info1 As String

Info1 = FileSys.ReadAllText( "c:\mydata\银行卡号.txt", Encoding.Default) '读取生成的文本文件

info1 = info1.Replace(vbcrlf,vblf) '将回车换行替换为换行

Dim pars1() As String = Info1.Split(vblf)

Dim dr As Row = Tables("xsjbxxb").current

dr("yhkh") = pars1(0).Trim()

补充：把代码：

FileSys.CopyFile("c:\mydata\idcard1.jpg", ProjectPath & "Attachments\" & zp & ".jpg",True) '照片复制到Attachments目录

r("IDcard1") =zp & ".jpg"

单独在命令窗口运行，是得到需要结果的。是否还需要传递相关参数，如：目录“c:\mydata”?

[此贴子已经被作者于2020/5/9 16:42:31编辑过]

调试不仅仅为了提示错误，也可以用来提示关键数据是不是符合要求

Dim Info As String

Info = FileSys.ReadAllText( "c:\mydata\idcard.txt", Encoding.Default) '读取生成的文本文件

msgbox(info)

info = info.Replace(vbcr,"") '将回车换行替换为换行

Dim zp As String

Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组

msgbox(pars.length)

Dim r As Row = Tables("xsjbxxb").AddNew

r("xsxm") = pars(0).Trim()

r("sfzhm") = pars(1).Trim()

r("xb") = pars(2).Trim()

r("mz") = pars(4).Trim()

r("birthday")=pars(4).Trim()

r("hjszd") = pars(5).Trim()

zp=r("sfzhm")

msgbox(zp)

FileSys.CopyFile("c:\mydata\idcard1.jpg", ProjectPath & "Attachments\" & zp & ".jpg",True) '照片复制到Attachments目录

r("IDcard1") =zp & ".jpg"

Dim Info1 As String

Info1 = FileSys.ReadAllText( "c:\mydata\银行卡号.txt", Encoding.Default) '确定【银行卡号.txt】中间是有空格的？

msgbox（Info1 ）

info1 = info1.Replace(vbcr,"") '将回车换行替换为换行

Dim pars1() As String = Info1.Split(vblf)

Dim dr As Row = Tables("xsjbxxb").current

dr("yhkh") = pars1(0).Trim()

谢谢！

问题找到了，我是记错了，原来是分成了两个函数单独写了的（看了文件监测器代码才发现，低级错误！），那句代码，没有写进第一个函数里所以执行函数肯定没结果。不好意思，谢谢！

主题：这个语句放进函数执行不了？