- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]CreateFromDataTable生成的表，如何获取当前行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190553)
-- 发布时间：2024/2/22 0:35:00
-- [求助]CreateFromDataTable生成的表，如何获取当前行
cmd.Comman dText = "sel ect 受控情况,文件类别,文件编号 from {SKWJ} "
Dim sdt As DataTable = cmd.Execute Reader
With wb.AddTable("", "Table1")
.Highlight = 0 \'关闭高亮显示
.Alternate = 2 \'每两行显示一个不同背景颜色的行
.RowHead = 1
.ActiveSheet = "menu"
.Primarykey = "Itid" \'设置主键
.BooleanSymbol = "√×"
.CreateFromDataTable(sdt, False)
End With
dim r as row = 选中行
Dim File As String = "SKFile\\" & R("受控情况") & "\\原始档\\" & r(文件类别)
老师，这里如何可以知道当前选中的行
-- 发布时间：2024/2/22 10:13:00
--
页面还没有生成，后台是不可能知道前端选中了什么行的。再说了，一打开网页前端默认是没有选中任何行的。如果网页要默认显示某一行的数据，直接取第一行的数据就好了
-- 发布时间：2024/2/22 15:21:00
--
cmd.CommandText = "sel ect * from {SKWJ} where Fid > 0 "
If flt > "" Then cmd.CommandText &= " And " & flt
cmd.CommandText &= " Order By 受控日期"
Functions.Execute("LogText", cmd.CommandText)
Dim sdt As DataTable = cmd.ExecuteReader
If sdt.DataRows.Count > 0 Then
Dim path As String = "D:\\OAFile\\SKFile\\光盘程序\\原始档\\"
With wb.AddListGroup("", "lsg3", "我的文件下载列表")
For Each dr As DataRow In sdt.DataRows
.Add(dr("Itid"), dr("文件名称"), dr("文件编号"), dr("原始档"), "./images/down.png").Attribute = "download=\'" & dr("原始档") & "\'"
Next
End With
End If
老师，想做一个网页，让其它同事可以下载到文件。参考了一下其它狐友做的，不知那里出了问题了。
dr("原始档") 里面存关文件名称 ，如Test.txt
[此贴子已经被作者于2024/2/22 15:21:13编辑过]
-- 发布时间：2024/2/22 15:48:00
--
文件要放到web目录里：http://www.foxtable.com/mobilehelp/topics/0044.htm
-- 发布时间：2024/2/22 16:41:00
--
老师，不能下载EXE文件，而且传输的速度比较慢，150多K，有点慢。有什么办法可以解决吗？
-- 发布时间：2024/2/22 16:49:00
--
1、加上exe这个后缀名：http://www.foxtable.com/mobilehelp/topics/0276.htm
2、提高服务器带宽
-- 发布时间：2024/2/22 17:58:00
--
Dim fl As String = "D:\\web\\SKFile\\" & "K900 T1.6.rar" \'sfle
If filesys.FileExists(fl) Then
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".zip", ".rar", ".exe"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
老师，这样修改了之后，下载弹出的对话框默认的后缀是 .htm的。
此主题相关图片如下：无标题20240222.png
-- 发布时间：2024/2/22 20:10:00
--
看帮助不要断章取义啊。
HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\\web"
HttpServer.Extensions.add(".exe")
HttpServer.Start()
HttpServer.WebPath = "d:\\web"
HttpServer.Extensions.add(".exe")
HttpServer.Start()