共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教下列代码在编译后运行到选文件夹“确定”就出错，但在开发状态运行就正常
1楼
fvcfox 发表于：2024/5/30 11:14:00Dim 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
2楼
有点蓝 发表于：2024/5/30 11:22:00出什么错？
3楼
fvcfox 发表于：2024/5/30 12:35:00
此主题相关图片如下：微信截图_20240530123441.png
4楼
有点蓝 发表于：2024/5/30 13:35:00窗口表是副本？还是sqltable？或者fill、DataSource绑定的？SQLLoadFile仅支持主表和副本使用
代码放在什么事件的？
5楼
fvcfox 发表于：2024/5/30 14:51:00是sqltable，用fill生成的表，代码是在窗口的Button
6楼
有点蓝 发表于：2024/5/30 14:58:00SQLLoadFile仅支持主表和副本使用。另外使用sql取吧：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154713
共6 条记录, 每页显示 10 条, 页签:
[1]