Dim f As String
f = "[项目名称] = '" & nd.ParentNode.Name & "' and [ID] = '" & nd.Name & "'"
Dim dr As DataRow
dr = DataTables("1").Find(f)
dt.Save()
If dr IsNot Nothing Then
''1
Dim fl As String = ProjectPath & "\" & dr("原始文件名称")
2 Dim fl As String = Ex_Path & "\" & dr("原始文件名称")
messagebox.show(fl)
messagebox.show(dr.SQLLoadFile("原始文件",fl))
'代码'1
fl 运行结果：
G:\FoxTable\相对重力测量数据管理与数据处理系统\相对重力测量数据管理与数据处理系统\0508.txt
08.txt08-1a_1m.txt0508-1a_1m.txt0508-1a_1m.txt508-1a_1m.txt0508-1a_1m.txt0508-1a_1m.txt
dr.SQLLoadFile("原始文件",fl)) 运行结果：
True
2 代码运行结果
fl 运行结果：
C:\Users\fdk\Desktop\新建文件夹\0508.txt
dr.SQLLoadFile("原始文件",fl)) 运行结果：
提示：未将对象引用设置到对象的实例
false
老师，为什么在提取二进制列文件时，输出到选定文件夹会失败呢，提取系统文件目录又是正常的，是有这个规定吗
加好友 
发短信
Post By：2022/6/1 9:19:00 [只看该作者]
