Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]手机应用


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

主题：[求助]手机应用
帅哥哟，离线，有人找我吗？
ytzn
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：441 积分：3872 威望：0 精华：0 注册：2012/10/12 5:20:00 		[求助]手机应用  发帖心情 Post By：2019/3/21 17:16:00 [只看该作者]

内部函数sy.htm:

Dim e As RequestEventArgs = args(0)
cmd.ConnectionName =_conn
If e.GetValues.ContainsKey("xz")=False Then
    cmd.CommandText ="Sel ect * FROM 订单表"
    dt=cmd.ExecuteReader()
End If
Dim wb As New WeUI
With wb.AddButtonGroup("","btg1", False)
    .Add("btn1", "确定","","sy.htm?xz=xz")
    .Add("btn1", "重新生成dt","","sy.htm")
    .Add("btn2", "退出", "button","xzml.htm")
End With
With wb.AddTable("","Table1")
        .Head.AddRow("日期","订单")
        For Each dr As DataRow In dt.DataRows
            With .Body.AddRow
                .AddCell(dr("创建时间"),dr("订单"))
            End With
        Next
End With
e.WriteString(wb.Build)

今天发现个新事，如上进入sy.htm时生成dt, 再点击确定按钮不生成dt, 但dt还在，一直点一直在，只是间隔时间过长dt就没了

这个间隔时间可以设定吗？帮助里有这方面的知识？多谢！
 回到顶部
帅哥哟，离线，有人找我吗？
ytzn
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：441 积分：3872 威望：0 精华：0 注册：2012/10/12 5:20:00 		  发帖心情 Post By：2019/3/21 17:36:00 [只看该作者]

这个dt是在全局代码中设的：Public dt As DataTable

大概这么设法不对

因为刚才我试了，如果别人用别的内部函数里有dt, 我这个dt就不好使了，可能与间隔时间没关系
[此贴子已经被作者于2019/3/21 17:37:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/21 17:44:00 [只看该作者]

为什么不能在函数里面定义？如

 

Dim e As RequestEventArgs = args(0)
Dim dt As DataTable
cmd.ConnectionName =_conn
If e.GetValues.ContainsKey("xz")=False Then
    cmd.CommandText ="Sel ect * FROM 订单表"
    dt=cmd.ExecuteReader()
End If
Dim wb As New WeUI
With wb.AddButtonGroup("","btg1", False)
    .Add("btn1", "确定","","sy.htm?xz=xz")
    .Add("btn1", "重新生成dt","","sy.htm")
    .Add("btn2", "退出", "button","xzml.htm")
End With
With wb.AddTable("","Table1")
        .Head.AddRow("日期","订单")
        For Each dr As DataRow In dt.DataRows
            With .Body.AddRow
                .AddCell(dr("创建时间"),dr("订单"))
            End With
        Next
End With
e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
ytzn
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：441 积分：3872 威望：0 精华：0 注册：2012/10/12 5:20:00 		  发帖心情 Post By：2019/3/21 17:46:00 [只看该作者]

为了图省事，手机应用在全局代码中这么设置：

Public dt As DataTable
Public dt1 As DataTable
Public dt2 As DataTable
Public dr As DataRow
Public dr1 As DataRow
Public dr2 As DataRow
Public r As Row
Public r1 As Row
Public drs As List(Of DataRow)
Public drs1 As List(Of DataRow)

然后在内部函数中直接用是不是不行？几个人同时用dt或dr有冲突吧？

也就是说在内部函数中必须：
dim dt As DataTable
dt=........
而不能直接：
dt=........

吧?
[此贴子已经被作者于2019/3/21 17:47:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/21 18:05:00 [只看该作者]

如果你函数里面的代码同时执行的时候，就会造成冲突情况。

 

所以，尽量还是在函数里面定义比较好。
 回到顶部
帅哥哟，离线，有人找我吗？
ytzn
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：441 积分：3872 威望：0 精华：0 注册：2012/10/12 5:20:00 		  发帖心情 Post By：2019/3/21 19:06:00 [只看该作者]

立即改，多谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询