专家坐堂-提示这个错误，是哪原因？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Dim wb As WeUI = Args(1)

Dim dm,mc As String

For Each key As String In e.Values.Keys

Select key

Case "name"

mc=e.Values(key)

Case "code"

dm= e.Values(key)

End Select

wb.AddPageTitle("","pageheader","产品信息","")

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

Dim dr As DataRow = DataTables("产品表").Find("代码 = \'" & dm & "\'")

With wb.AddInputGroup("form1","ipg1","")

With .AddInput("dm","代码","text")

.value = dm

.Readonly=True

End With

With .AddInput("mc","名称","text")

.value = mc

.Readonly=True

End With

Dim yj,jj As Single

If dr("是否协议价") ="是" Then

yj = dr("协议月均价")

jj = dr("协议季均价")

Else

yj = dr("月均价")

jj = dr("季均价")

End If

With .AddInput("yj","月均价","number")

.Step =0.01

.Value = yj

.Required=True

End With

With .AddInput("jj","季均价","number")

.Step =0.01

.Value = jj

.Required=True

End With

.AddSwitch("xyj","是否协议价",iif(dr("是否协议价") ="是",False,True)).Attribute = ""

End With

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

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

.Add("btn2", "返回", "","default.htm")

End With

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

e.WriteString(wb.Build)

getAvgPrice.htm代码：

Dim dr1 As DataRow = DataTables("产品表").Find("代码 = \'" & e.Values("dm") & "\'")

If dr1 IsNot Nothing Then

If e.Values("xyj")="on" Then

e.WriteString(dr1("协议月均价") & "|" & dr1("协议季均价"))

Else

e.WriteString(dr1("月均价") & "|" & dr1("季均价"))

End If

Else

e.WriteString("未找到相关数据")

End If

js代码：

function setAvgPrice(){

var result= submitAjaxFileds(\'getAvgPrice.htm\',\'\',\'dm\',\'xyj\',false); //根据是否协议价设置界面均价

if(result){

var vals=result.split("|");

if(vals.length==2){

document.getElementById("yj").value=vals[0];

document.getElementById("jj").value=vals[1];

}