Foxtable(狐表)用户栏目专家坐堂 → 关于sqlfind查找后赋值的问题


  共有2836人关注过本帖树形打印复制链接

主题:关于sqlfind查找后赋值的问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/16 9:13:00 [显示全部帖子]

SQLFind出来的是一个独立的行,和原表没有什么关系,需要单独保存

Dim dr As DataRow

If Tables("表A").Rows(0)("序号") = 1 Then  '判断是否加载了序号为1的列
    dr = DataTables("表A").Find("[序号] = 1")
    If dr IsNot Nothing Then
        dr("第三列") = "直接赋值"
    End If
Else
    dr = DataTables("表A").SQLFind("[序号] = 1")
    If dr IsNot Nothing Then
        dr("第二列") = "后台赋值"
dr.save
    End If
End If
DataTables("表A").Save

 回到顶部