共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：[求助]CreateFromDataTable生成的表，如何获取当前行

1楼

2900819580 发表于：2024/2/22 0:35:00

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(文件类别)

老师，这里如何可以知道当前选中的行

2楼

有点蓝 发表于：2024/2/22 10:13:00

页面还没有生成，后台是不可能知道前端选中了什么行的。再说了，一打开网页前端默认是没有选中任何行的。如果网页要默认显示某一行的数据，直接取第一行的数据就好了

3楼

2900819580 发表于：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("原始档") & "'"

End With

End If

老师，想做一个网页，让其它同事可以下载到文件。参考了一下其它狐友做的，不知那里出了问题了。

dr("原始档") 里面存关文件名称，如Test.txt

[此贴子已经被作者于2024/2/22 15:21:13编辑过]

4楼

有点蓝 发表于：2024/2/22 15:48:00

文件要放到web目录里：http://www.foxtable.com/mobilehelp/topics/0044.htm

5楼

2900819580 发表于：2024/2/22 16:41:00

老师，不能下载EXE文件，而且传输的速度比较慢，150多K，有点慢。有什么办法可以解决吗？

6楼

有点蓝 发表于：2024/2/22 16:49:00

1、加上exe这个后缀名：http://www.foxtable.com/mobilehelp/topics/0276.htm

2、提高服务器带宽

7楼

2900819580 发表于：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

8楼

有点蓝 发表于：2024/2/22 20:10:00

看帮助不要断章取义啊。

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"
HttpServer.Extensions.add(".exe")
HttpServer.Start()

共8 条记录, 每页显示 10 条, 页签: [1]