Foxtable(狐表)用户栏目专家坐堂 → [求助]如何判断产品是否存在另一个表的多值字段里


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

主题:[求助]如何判断产品是否存在另一个表的多值字段里

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/13 15:25:00 [显示全部帖子]

这里都不涉及到数据源,用这个方法,找出出错的代码行:

http://www.foxtable.com/help/topics/1485.htm

 

 

然后根据错误提示分析原因。

 

最后实在搞不定,再贴出代码,告诉大家哪一行有错,错误提示是什么。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/15 13:12:00 [显示全部帖子]

这样就不出错了:

 

Select Case e.DataCol.Name
    Case "购买座位号"
        Dim ov As String
        Dim nv As String
        If e.NewValue > "" Then
            nv = "'" & e.NewValue.REplace(",","','") & "'"
        End If
        If e.oldValue > "" Then
            nv = "'" & e.oldValue.Replace(",","','") & "'"
        End If
        If ov > "" Then
            Dim drs As List(Of DataRow) = DataTables("表A").Select("座位号 In (" & ov & ")")
            If drs.Count>0 Then
                For Each dr As DataRow In drs
                    dr("是否出售") = "否"
                Next
            End If
        End If
        If nv > "" Then
            Dim drs As List(Of DataRow) = DataTables("表A").Select("座位号 In (" & nv & ")")
            If drs.Count>0 Then
                For Each dr As DataRow In drs
                    dr("是否出售") = "是"
                Next
            End If
        End If
End Select


 回到顶部