以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  移动端数据更新小问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106234)
--  作者：zhangjian222200
--  发布时间：2017/9/5 9:20:00
--  移动端数据更新小问题
Dim e As RequestEventArgs = args(0)
Dim wb As New weui

Dim drbianh As String = e.Cookies("sj")
dim zhanghao as string
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = \'" & drbianh & "\'")

If dr IsNot Nothing Then
    zhanghao = dr("账号") ’此时zhanghao值是：1
End If

假设此时dr行的“账号”列，被另外一个人改为“123”，再执行下面代码

If dr IsNot Nothing Then
    zhanghao = dr("账号") ’此时值是“1”，还是“123”？（这种情况，无法实测，麻烦说下结果）
End If

e.WriteString(wb.Build)
[此贴子已经被作者于2017/9/5 9:38:56编辑过]
--  作者：有点甜
--  发布时间：2017/9/5 9:41:00
--  

sqlFind的，是原来的值；find的，是最后的值。如下测试代码

 

Dim fdr As DataRow = DataTables("表a").SQLFind("第一列 = \'123\'")
msgbox(fdr("第二列"))
DataTables("表A").ReplaceFor("第二列", rand.next(1000), "第一列 = \'123\'")
DataTables("表A").save
msgbox(fdr("第二列"))