共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：onchange用JS文件的问题
1楼
温馨的大树 发表于：2024/1/24 16:49:00在PC端表属性的datacolchanged事件中的代码，在移动端是不是用到onchange的事件来实现？需要怎么修改和注意哪些呢，比如Dim dr As DataRow = e.DataRow,Dim dc As DataCol = e.DataCol这样的语法还可以用吗？因为教程里介绍的比较少也比较简单！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表属性.txt |
2楼
有点蓝 发表于：2024/1/24 16:51:00移动端无法使用表事件，也不应该使用表事件。所有逻辑都应该在httprequest事件里处理
3楼
温馨的大树 发表于：2024/1/24 17:03:00那是用输入框的onchanged事件来调用JS文件来实现？还是其它什么方法？
4楼
有点蓝 发表于：2024/1/24 17:05:00不如直接说说具体要做什么功能？
5楼
温馨的大树 发表于：2024/1/24 17:05:00比如我发的这个是PC端datacolchange事件的代码，如果移动端是通过什么逻辑来实现呢？
6楼
温馨的大树 发表于：2024/1/24 17:07:00我PC端的代码是实现，比如收款，车费等数据变化，然后实现客服等的收入实现自动计算！
7楼
有点蓝 发表于：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
……
共7 条记录, 每页显示 10 条, 页签:
[1]