以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  红色部分 update语句不执行 麻烦老师帮忙看看  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179772)
--  作者：cnsjroom
--  发布时间：2022/9/8 10:52:00
--  红色部分 update语句不执行 麻烦老师帮忙看看

红色部分 update语句不执行  麻烦老师帮忙看看

 

当前代码如下：

 


d1.CommandText = "se le ct formid,form,name from SY S _Navigation where ID=\'" &  e.Values("导航id") & "\'"
Dim Values1 = cmd1.ExecuteValues
If Values1.Count > 0 Then

 If Values1("form")=nothing then
  cmd1.CommandText = "up date 文书名称表 SE T 窗体id = " & Values1("formid") & "\',导航名 = \'" & Values1("name") & "\' where 导航id=\'" &  e.Values("导航id") & "\'"
  Else
  cmd1.CommandText = "up date 文书名称表 SE T 窗体id = \'" & Values1("form") & "\',导航名 = \'" & Values1("name") & "\' where 导航id=\'" &  e.Values("导航id") & "\'"
 End If

    cmd1.ExecuteNonQuery()
End If
--  作者：有点蓝
--  发布时间：2022/9/8 11:01:00
--  
调试

d1.CommandText = "select formid,form,name from SYS_Navigation where ID=\'" & e.Values("导航id") & "\'"
Dim Values1 = cmd1.ExecuteValues
msgbox(Values1.Count)
If Values1.Count > 0 Then
    msgbox(Values1("form").tostring = Nothing) 
    If Values1("form").tostring = Nothing Then
        cmd1.CommandText = "update 文书名称表 SET 窗体id = \'" & Values1("formid") & "\',导航名 = \'" & Values1("name") & "\' where 导航id=\'" & e.Values("导航id") & "\'"
    Else
        cmd1.CommandText = "update 文书名称表 SET 窗体id = \'" & Values1("form") & "\',导航名 = \'" & Values1("name") & "\' where 导航id=\'" & e.Values("导航id") & "\'"
    End If
    msgbox(cmd1.CommandText) 
    cmd1.ExecuteNonQuery()
End If
--  作者：cnsjroom
--  发布时间：2022/9/8 13:00:00
--  回复：（有点蓝）调试d1.CommandText = "select formi...
谢谢老师