以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：SQL 逻辑列替换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122124)
--  作者：刘异
--  发布时间：2018/7/19 13:00:00
--  求助：SQL 逻辑列替换
老师好：以下代码在SQL server 数据里提示错误（列名false无效，列名true无效），但是在ACC数据中和内部数据都是可以的。
不知道怎么改代码：

Select Case e.DataCol.Name
    Case "是否离职"
        Dim Filter As String = "[工号] = \'" & e.DataRow("工号") & "\'"        
        DataTables("执行模式").sqlReplaceFor(e.DataCol.Name, e.NewValue, Filter)
        DataTables("执行模式").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select

谢谢！
--  作者：有点甜
--  发布时间：2018/7/19 16:44:00
--  

改一下

 

Select Case e.DataCol.Name
    Case "是否离职"
        Dim Filter As String = "[工号] = \'" & e.DataRow("工号") & "\'"        
        DataTables("执行模式").sqlReplaceFor(e.DataCol.Name, iif(e.NewValue, 1, 0), Filter)
        DataTables("执行模式").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select
--  作者：刘异
--  发布时间：2018/7/19 17:46:00
--  
感谢老师：完美解决了。