Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:10 积分:215 威望:0 精华:0 注册:2016/12/14 22:46:00
[求助]  发帖心情 Post By:2017/1/11 23:38:00 [只看该作者]

菜鸟求助:下面的公式里的“单开门”我想用通配符“%门”代替,代码应该怎么改

Select Case e.DataCol.Name
    Case "系列"
        Dim dr1 As String = "单开门"       
        Dim dr2 As String = "单包套"       
        Dim dr As DataRow = e.DataRow       
        If dr("系列") = dr1 Then           
            e.DataRow("第五列") = e.DataRow("第二列") * e.DataRow("第三列")
        ElseIf dr("系列") = dr2 Then
            e.DataRow("第五列") = e.DataRow("第三列") * e.DataRow("第四列")
        End If
End Select


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 2:22:00 [只看该作者]

Select Case e.DataCol.Name
    Case "系列"
        Dim dr1 As String = "*门"       
        Dim dr2 As String = "单包套"       
        Dim dr As DataRow = e.DataRow       
        If dr("系列") like dr1 Then           
            e.DataRow("第五列") = e.DataRow("第二列") * e.DataRow("第三列")
        ElseIf dr("系列") = dr2 Then
            e.DataRow("第五列") = e.DataRow("第三列") * e.DataRow("第四列")
        End If
End Select


 回到顶部