Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]CreateFromDataTable生成的表，如何获取当前行


  共有544人关注过本帖树形打印复制链接

主题：[求助]CreateFromDataTable生成的表，如何获取当前行
帅哥哟，离线，有人找我吗？
2900819580
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1311 积分：9528 威望：0 精华：0 注册：2015/6/30 8:46:00 		[求助]CreateFromDataTable生成的表，如何获取当前行  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/22 10:13:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1311 积分：9528 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/22 15:48:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1311 积分：9528 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2024/2/22 16:41:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/22 16:49:00 [只看该作者]

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

2、提高服务器带宽
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1311 积分：9528 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/22 20:10:00 [只看该作者]

看帮助不要断章取义啊。

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"
HttpServer.Extensions.add(".exe")
HttpServer.Start()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询