主题：[求助]手机应用

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

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)

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

所以，尽量还是在函数里面定义比较好。