以文本方式查看主题

-  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=61237)

--  作者:kao_go
--  发布时间:2014/12/9 14:58:00
--  sqlfind查询后不能保存
sqlfind查询后要怎么更新值??

Dim dt1 As DataTable = DataTables("djbh")
Dim dr1 As DataRow = dt1.SQLFind("bh1=\'" & bh1 & "\' And bh2=\'" & bh2 & "\'")
If dr1 IsNot Nothing Then
    dr1("lsh")=dr1("lsh")+1   ’这个值保存不到
    MessageBox.Show(dr1("lsh"))
Else
    dr1 = dt1.AddNew     ‘这个可以保存
    dr1("bh1")=bh1
    dr1("bh2")=bh2
    dr1("lsh")=1
End If
dt1.Save

--  作者:有点甜
--  发布时间:2014/12/9 15:15:00
--  
 最后,dr1.Save