- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教下列代码在编译后运行到选文件夹“确定”就出错，但在开发状态运行就正常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192124)
-- 发布时间：2024/5/30 11:14:00
-- 请教下列代码在编译后运行到选文件夹“确定”就出错，但在开发状态运行就正常
Dim tb As Table = Tables("主窗口_table10")
If tb.Rows.count < 1 Then
Return
End If
Dim tbr As Row = tb.Current
Dim nr As DataRow = tbr.DataRow
Dim nf As String
Dim nf1 As String
Dim drs As List(Of DataRow)
drs = tb.DataTable.S elect("[选中] =true")
If (tb.Current("选中") = True And drs.Count = 1) OrElse drs.Count = 0 Then
drs = tb.DataTable.Select ("id=\'" & tbr("_Identify") & "\'")
End If
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
For Each dr As DataRow In drs
If dr.SQLLoadFile("files", dlg.SelectedPath & "\\" & dr("文件名").trim() & dr("文件名后缀").trim()) = False Then \'如果提取文件失败
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End if
Next
Messagebox.Show(drs.Count & "条 记录下载成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
-- 发布时间：2024/5/30 11:22:00
--
出什么错？
-- 发布时间：2024/5/30 12:35:00
--
此主题相关图片如下：微信截图_20240530123441.png
-- 发布时间：2024/5/30 13:35:00
--
窗口表是副本？还是sqltable？或者fill、DataSource绑定的？SQLLoadFile仅支持主表和副本使用
代码放在什么事件的？
-- 发布时间：2024/5/30 14:51:00
--
是sqltable，用fill生成的表，代码是在窗口的Button
-- 发布时间：2024/5/30 14:58:00
--
SQLLoadFile仅支持主表和副本使用。另外使用sql取吧：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713