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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → onchange用JS文件的问题

共有2164人关注过本帖树形打印复制链接主题：onchange用JS文件的问题

温馨的大树

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

onchange用JS文件的问题 发帖心情

Post By：2024/1/24 16:49:00 [只看该作者]

在PC端表属性的datacolchanged事件中的代码，在移动端是不是用到onchange的事件来实现？需要怎么修改和注意哪些呢，比如Dim dr As DataRow = e.DataRow,Dim dc As DataCol = e.DataCol这样的语法还可以用吗？因为教程里介绍的比较少也比较简单！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表属性.txt

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110563 积分：562705 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/24 16:51:00 [只看该作者]

移动端无法使用表事件，也不应该使用表事件。所有逻辑都应该在httprequest事件里处理

温馨的大树

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

Post By：2024/1/24 17:03:00 [只看该作者]

那是用输入框的onchanged事件来调用JS文件来实现？还是其它什么方法？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110563 积分：562705 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/24 17:05:00 [只看该作者]

不如直接说说具体要做什么功能？

温馨的大树

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

Post By：2024/1/24 17:05:00 [只看该作者]

比如我发的这个是PC端datacolchange事件的代码，如果移动端是通过什么逻辑来实现呢？

温馨的大树

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

Post By：2024/1/24 17:07:00 [只看该作者]

我PC端的代码是实现，比如收款，车费等数据变化，然后实现客服等的收入实现自动计算！

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110563 积分：562705 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

sr("金额") = sr("数量") * sr("单价")

sr.Save()
End If

……

下一主题 >> << 上一主题

主题：onchange用JS文件的问题