Foxtable(狐表)用户栏目专家坐堂 → 增加字符串判断


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

主题:增加字符串判断

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


加好友 发短信
等级:幼狐 帖子:65 积分:477 威望:0 精华:0 注册:2022/6/8 15:28:00
增加字符串判断  发帖心情 Post By:2022/7/2 9:37:00 [只看该作者]

Select Case e.DataCol.Name
    Case "实际_结束日期", "实际_开始日期", "批准"
        Dim dr As DataRow = e.DataRow
        Dim s1() As String = {"三维", "程序"}
        Dim pr As Integer
        If dr.isnull("实际_结束日期") = False AndAlso dr.isnull("实际_开始日期") = False AndAlso dr("批准") = True AndAlso e.DataRow("任务类型") = " s1()" Then
            pr = Tables("项目开发进度表").FindRow( "详细任务或工序号= '" & dr("详细任务或工序号") & "' ")
            If pr > - 1 Then
                Dim r As Row
                If Tables("项目开发进度表").rows.count = pr + 1 Then
                    r = Tables("项目开发进度表").addnew
                Else
                    Tables("项目开发进度表").position = pr + 1
                    r = Tables("项目开发进度表").InsertNew()
                End If
                r("详细任务或工序号") = dr("详细任务或工序号") + "实际"
                r("计划_开始日期") = dr("实际_开始日期")
                r("计划_结束日期") = dr("实际_结束日期")
                 End If
        End If
End Select

 

 

我想增加一个判断  就是只有该列内容等于三维或者是检具  才能在另一个表增加


 回到顶部
帅哥哟,离线,有人找我吗?
有点灰3
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:65 积分:477 威望:0 精华:0 注册:2022/6/8 15:28:00
  发帖心情 Post By:2022/7/2 9:37:00 [只看该作者]

请问这样写行不行

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/2 9:43:00 [只看该作者]

判断值是否在数组里使用Array.Indexof:http://www.foxtable.com/webhelp/topics/0216.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点灰3
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:65 积分:477 威望:0 精华:0 注册:2022/6/8 15:28:00
  发帖心情 Post By:2022/7/3 9:44:00 [只看该作者]

If e.DataCol.Name = "任务类型" Then
    Dim s2() As String = {"三维", "程序", "工装", "检具", "刀具"}
        If e.DataRow("任务类型").IndexOf (s2, "三维", "程序") > 0 Then
        Select Case e.DataCol.Name
            Case "实际_结束日期", "实际_开始日期", "批准", "任务类型"
                Dim dr As DataRow = e.DataRow
                Dim pr As Integer
                If dr.isnull("实际_结束日期") = False AndAlso dr.isnull("实际_开始日期") = False AndAlso dr("批准") = True Then
                    pr = Tables("项目开发进度表").FindRow( "详细任务或工序号= '" & dr("详细任务或工序号") & "' ")
                    If pr > - 1 Then
                        Dim r As Row
                        If Tables("项目开发进度表").rows.count = pr + 1 Then
                            r = Tables("项目开发进度表").addnew
                        Else
                            Tables("项目开发进度表").position = pr + 1
                            r = Tables("项目开发进度表").InsertNew()
                        End If
                        r("详细任务或工序号") = dr("详细任务或工序号") + "实际"
                        r("计划_开始日期") = dr("实际_开始日期")
                        r("计划_结束日期") = dr("实际_结束日期")
                    End If
                End If
        End Select
    End If
   
End If

 

 

这样写为什么不行


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/3 20:37:00 [只看该作者]

是Array.Indexof,而不是其它什么对象.Indexof

Dim s2() As String = {"三维", "程序", "工装", "检具", "刀具"}
If Array.Indexof (s2, e.DataRow("任务类型")) > 0 Then

 回到顶部