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

js添加一个函数

function calc(){
document.getElementById("jiage").innerText = document.getElementById("数量").value * document.getElementById("单价").value;
}

addnew页面

……

With wb.AddDialog("","dlg1", "提示","增加数据完成，是否生成价格？")

.AddButton("btnYes","是").Attribute = "onclick='calc();'" 想点击是则自动计算出价格处的数值。

.AddButton("btnNo","否","http://www.foxtable.com").Kind = 1

End With

With wb.AddDialog("","dlg2", "错误","") '增加订单失败提示框

.AddButton("btnOK","确定")

End With

wb.InsertHTML("<h3 id='jiage' align='center' style='margin-top:5px'></h3>")

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

e.WriteString(wb.Build)

这样整个逻辑是不合理的。没有单号之类的东西，在提示框的确定按钮的时候，根据什么查之前新增的数据？

反正价格已经计算了，就没有必要在多个对话框问用户需不需要计算了吧，不如直接显示算了

function myfunction(){

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

if(result){
var vals=result.split("|");
if(vals.length==2 && vals[0] == "OK"){

            document.getElementById("价格").value=vals[1];
        }
    }

else {showDialog('dlg2','错误',result)}

}

Select Case e.Path

Case "addnew.htm"

Dim wb As New weui

wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm

With wb.AddInputGroup("form1","ipg1","新增订单")

.AddInput("数量","数量","number")

.AddInput("单价","单价","number").Step = 0.1

.AddInput("价格","价格","number")

End With

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

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

End With

With wb.AddDialog("","dlg2", "错误","增加订单失败") '增加订单失败提示框

.AddButton("btnOK","确定")

End With

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

e.WriteString(wb.Build)

Case "handle.htm"

Dim nms() As String = {"数量","单价"}

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) = False Then

e.WriteString("请输入" & nm & "!") '返回错误消息

Return '必须返回

End If

Dim dr As DataRow = DataTables("订单").AddNew()

For Each nm As String In nms

dr(nm) = e.PostValues(nm)

dr.Save()

e.WriteString("OK|" & (dr(“数量”) * dr(“单价”))) '返回增加成功消息

End Select

比如出错了，或者没有数据返回，就不赋值了

在哪里给单元格fps计算赋值的？

为什么要改为判断3个？

if(vals.length==2 && vals[0] == "OK"){

调试有数据吗？

Dim dr As DataRow = DataTables("操作表").AddNew()

For Each nm As String In nms

dr(nm) = e.PostValues(nm)

dr.Save()

msgbox(dr("fps"))

e.WriteString("OK|" & (dr("fps"))) '返回增加成功消息

-------------------------

function myfunction(){

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

if(result){

alert(result);

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

if(vals.length==3 && vals[0] == "OK"){

使用浏览器开发者根据调试一下js代码

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

function myfunction(){

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

alert(result );

if(result){

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

alert(vals.length);

if(vals.length==38 && vals[0] == "OK"){

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

调试

Case "handle.htm"

msgbox(1)

Dim nms() As String = {"constdecl","lbp","tabledensity","lightship","beforeweight","fmark","mmark","amark","fp","mp","ap","fs","ms","as","df","dm","da","do","fo","bw","fw","rounddraft","harbourdensity","displacement"}

For Each nm As String In nms

msgbox(nm)

If e.PostValues.ContainsKey(nm) = False Then

msgbox("请输入" & nm & "!")

e.WriteString("请输入" & nm & "!") '返回错误消息

Return '必须返回

End If

msgbox(2)

Dim nms2() As String = {"constdecl","lbp","tabledensity","lightship","beforeweight","fmark","mmark","amark","fp","mp","ap","fs","ms","as","df","dm","da","do","fo","bw","fw","others","fwsupplied","bunkerrecevied","bl","mtc50","mtc150","const","drainage","rounddraft","tpc","lcf","harbourdensity","displacement"}

Dim dr As DataRow = DataTables("操作表").AddNew()

For Each nm2 As String In nms2

dr(nm2) = e.PostValues(nm2)

dr.Save()

msgbox(3)

主题：网页反馈计算结果问题