- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- onchange用JS文件的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=190223)
-- 发布时间：2024/1/24 16:49:00
-- onchange用JS文件的问题
在PC端表属性的datacolchanged事件中的代码，在移动端是不是用到onchange的事件来实现？需要怎么修改和注意哪些呢，比如Dim dr As DataRow = e.DataRow,Dim dc As DataCol = e.DataCol这样的语法还可以用吗？因为教程里介绍的比较少也比较简单！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表属性.txt |
-- 发布时间：2024/1/24 16:51:00
--
移动端无法使用表事件，也不应该使用表事件。所有逻辑都应该在httprequest事件里处理
-- 发布时间：2024/1/24 17:03:00
--
那是用输入框的onchanged事件来调用JS文件来实现？还是其它什么方法？
-- 发布时间：2024/1/24 17:05:00
--
不如直接说说具体要做什么功能？
-- 发布时间：2024/1/24 17:05:00
--
比如我发的这个是PC端datacolchange事件的代码，如果移动端是通过什么逻辑来实现呢？
-- 发布时间：2024/1/24 17:07:00
--
我PC端的代码是实现，比如收款，车费等数据变化，然后实现客服等的收入实现自动计算！
-- 发布时间：2024/1/24 17:18:00
--
比如这个例子：http://www.foxtable.com/mobilehelp/topics/0134.htm，输入了数量和单价，自动计算金额
\'保存明细
……
If valid Then \'如果提交了订单明细数据
Dim sr As DataRow
If e.PostValues.ContainsKey("DetailID") Then \'如果传递了订单明细主键
sr = DataTables("订单明细").SQLFind("[_Identify]=" & e.PostValues("DetailID"))
If sr Is Nothing Then
Return ""
End If
Else
sr = DataTables("订单明细").SQLAddNew() \'增加一个订单明细
sr("订单编号") = dr("订单编号")
End If
For Each nm As String In nms
sr(nm) = e.PostValues(nm)
Next
……
If valid Then \'如果提交了订单明细数据
Dim sr As DataRow
If e.PostValues.ContainsKey("DetailID") Then \'如果传递了订单明细主键
sr = DataTables("订单明细").SQLFind("[_Identify]=" & e.PostValues("DetailID"))
If sr Is Nothing Then
Return ""
End If
Else
sr = DataTables("订单明细").SQLAddNew() \'增加一个订单明细
sr("订单编号") = dr("订单编号")
End If
For Each nm As String In nms
sr(nm) = e.PostValues(nm)
Next
sr("金额") = sr("数量") * sr("单价")
sr.Save()
End If
End If
……