以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  操作必须使用一个可更新的查询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178349)

--  作者:HANZHIGANG
--  发布时间:2022/6/30 21:45:00
--  操作必须使用一个可更新的查询

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220630214105.png
图片点击可在新窗口打开查看

DataColChanged事件如上代码

出现了错误提示

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt


--  作者:有点蓝
--  发布时间:2022/6/30 22:08:00
--  
删除项目里的bin目录,重启项目试试

调试看哪一句代码出错:http://www.foxtable.com/webhelp/topics/1485.htm

除数判断一下是否为0
if e.DataRow("台数") = 0 then
e.DataRow("借款") =0
else
e.DataRow("借款") = e.DataRow("预借合计") / e.DataRow("台数")
end if

--  作者:HANZHIGANG
--  发布时间:2022/7/1 8:46:00
--  
已删除BIN,重启后无效
测试为update语句的的错误

--  作者:HANZHIGANG
--  发布时间:2022/7/1 8:52:00
--  
外部数据源为ACCESS
--  作者:有点蓝
--  发布时间:2022/7/1 8:54:00
--  
access数据库?先查一次再更新

  Dim cmd As New SQLCommand
    cmd.ConnectionName = "H"   
    cmd.CommandText = "select sum(考核金额) from {考核管理} WHERE [调度单号] = \'" & e.DataRow("调度单号") & "\'"
    dim val as double = cmd.ExecuteScalar()
    cmd.CommandText = "UPDATE {调度管理} SET [下游考核] =" & val &  " WHERE [调度单号] = \'" & e.DataRow("调度单号") & "\'"
    cmd.ExecuteNonQuery()

--  作者:HANZHIGANG
--  发布时间:2022/7/1 9:12:00
--  
这样可以,
是什么问题导致的呢

--  作者:有点蓝
--  发布时间:2022/7/1 9:25:00
--  
access本身不支持这种子查询的更新语句
--  作者:HANZHIGANG
--  发布时间:2022/7/1 10:06:00
--  
多谢,老师