以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符型怎么错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193520)

--  作者:lin98
--  发布时间:2024/9/23 9:39:00
--  字符型怎么错
DataTables("计划执行表A").ReplaceFor("审核 = \'已审核\'")
DataTables("计划执行表A").ReplaceFor("审核", \'已审核\')
上面二个都报错,如何改?

--  作者:有点蓝
--  发布时间:2024/9/23 9:43:00
--  
DataTables("计划执行表A").ReplaceFor("审核", "已审核")
--  作者:lin98
--  发布时间:2024/9/23 15:34:00
--  
Dim d2 As Date = DataTables("表A").Current
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[事件] = \'" & d2("事件") & "\'")
For Each dr As DataRow In drs
    If drs("结束时间") = drs("执行时间") And drs("事件") =  Then\'事件1\'   Then
        计划1
    ElseIf drs("结束时间") = drs("执行时间") And drs("事件") =  Then\'事件2\'   Then
        计划2
    ElseIf drs("结束时间") = drs("执行时间") And drs("事件") =  Then\'事件3\'   Then
        计划3
    Else
        计划X
    End If
    
Next

需求:如果表A的结束时间"="执行时间"和("事件") =  Then\'事件1\',执行“计划管理中的计划1
如果表A的结束时间"="执行时间"和("事件") =  Then\'事件2\',执行“计划管理中的计划2
如果表A的结束时间"="执行时间"和("事件") =  Then\'事件3\',执行“计划管理中的计划3

上面代码,如何改正?

--  作者:有点蓝
--  发布时间:2024/9/23 15:52:00
--  
If dr("结束时间") = dr("执行时间") And dr("事件") = "事件"  Then