主题：[求助]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数据库会多增一行，该行没有查看人