异步函数问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

select case e.path

Case "addnew.htm"

Functions.Execute("addnew_htm",e,wb)

Case "receive.htm"

e.AsyncExecute = True '通知系统异步执行,不要关闭信道

Functions.AsyncExecute("receive_htm",e) '异步调用函数处理接收到的数据和文件

end select

addnew_htm函数

Dim e = args(0)

Dim wb = args(1)

wb.AddForm("","form1","receive.htm")

With wb.AddInputGroup("form1","ipg1","增加员工")

.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题

.AddInput("年龄","年龄","number")

.AddSelect("学历","学历","大专|本科|硕士|博士")

With .AddUploader("up1","照片",True) 'True表示允许上传多个文件

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit").Attribute= ""

End With

wb.AddToast("","tst1", "正在上传",1)

wb.AddToast("","tst2", "上传成功",0)

wb.AddToast("","tst3", "上传失败",0).Icon= "warn"

wb.AppendHTML("<script src='./foxtableAppTest/js/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

receive_htm 函数

Dim e As RequestEventArgs = args(0)

Dim Name As String = e.PostValues("姓名")

Dim Xueli As String = e.PostValues("学历")

Dim Age As Integer = Val(e.PostValues("年龄"))

Dim Files As String = ""

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

'生成随机文件名,后缀名不变

Dim newName As String = rand.NextString(10) & fln.SubString(fln.LastIndexOf("."))

e.SaveFile(key, fln, ProjectPath & "Attachments\" & newName)

Files = Files & IIF(Files > "" , vbcrlf, "") & newName

End If

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "Insert Into 员工 (姓名, 年龄, 学历, 照片) Values(?,?,?,?)"

cmd.Parameters.Add("@姓名",Name)

cmd.Parameters.Add("@年龄",Age)

cmd.Parameters.Add("@学历",XueLi)

cmd.Parameters.Add("@照片",Files)

cmd.ExecuteNonQuery()

e.WriteString("ok")

e.Handled = True '通知系统异步函数执行完毕,可以关闭信道

ajaxform.js文件

function submitForm(){

show("tst1",2000);

var result = submitAjaxForm('form1','afterSubmit');

}

function afterSubmit(result){

hide("tst1");

if (result=='OK') {

show("tst2");

location="addnew.htm";

}

else{

show("tst3",2000);

}

以上是代码，几个问题，1：执行过程中出现报错。

2：执行结束后，并不会发挥到addnew.htm界面

请问怎么解决？

主题：异步函数问题