以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]手机应用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132427)
--  作者：ytzn
--  发布时间：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
--  发布时间：2019/3/21 17:36:00
--  
这个dt是在全局代码中设的：Public dt As DataTable

大概这么设法不对

因为刚才我试了，如果别人用别的内部函数里有dt, 我这个dt就不好使了，可能与间隔时间没关系
[此贴子已经被作者于2019/3/21 17:37:11编辑过]
--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2019/3/21 18:05:00
--  

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

 

所以，尽量还是在函数里面定义比较好。
--  作者：ytzn
--  发布时间：2019/3/21 19:06:00
--  
立即改，多谢！