| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]SQLFIND问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62233) |
| -- 作者：xxk02 -- 发布时间：2014/12/28 9:55:00 -- [求助]SQLFIND问题 外部数据源，任务查看统计表初始不加载数据。在窗口中有一“退出”按钮 代码如下： Dim dt As DataTable = DataTables("任务查看统计表") Dim dr As DataRow dr = dt.SQLFind("[任务编号] =
\'" & Vars("task_no") &
"\' And [查看人] = \'" & _name & "\'") If dr IsNot Nothing Then \'如果找到的话 dr("最新查看时间")
= Functions.Execute("服务器精确时间") dr("查看次数")
= dr("查看次数")
+ 1 \'累计查看次数 dr("未读回复")
= 0 \'查看 Else dr = dt.AddNew() dr("最新查看时间") = Functions.Execute("服务器精确时间") dr("查看人") = _name dr("任务编号") = Vars("task_no") dr("查看次数") = dr("查看次数") + 1 \'累计查看次数 dr("未读回复")
= 0 \'查看后未读 End If dr.save() 问题：1.每次退出时，后台数据库不更新查看数据，即查看次数不累加 2.新增时，SQL数据库会多增一行，该行没有查看人 |
| -- 作者：xxk02 -- 发布时间：2014/12/28 10:27:00 -- 请甜老师看看，我的代码错在哪里？找了两天了。 |
| -- 作者：有点甜 -- 发布时间：2014/12/28 10:34:00 -- 说明你的dr没有查询到。
你可以加入msgbox看一下是否进入了判断。 |