Foxtable(狐表)用户栏目专家坐堂 → 求助关于数据行内容包含的查找问题


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

主题:求助关于数据行内容包含的查找问题

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


加好友 发短信
等级:五尾狐 帖子:1018 积分:7150 威望:0 精华:0 注册:2008/9/1 22:34:00
求助关于数据行内容包含的查找问题  发帖心情 Post By:2011/1/23 16:10:00 [只看该作者]

   我在一个表的DataColChanged事件中写下面的代码,想在“原材料基础数据表”里查找出“料品名称”等于当前行的“料品名称”且“通用范围”里包含有当前表的“成品名称”的行,如果找到就将其“料品编码”输入到当前表中,请问这个代码为什么不行呢?如何做才科学呢?

 

Select Case e.DataCol.Name

Case "成品名称"
        If e.DataRow.IsNull("成品名称") = False Then
            Dim s As String =e.DataRow("成品名称")
            Dim drs As List(Of DataRow)
            drs = DataTables("原材料基础数据表").Select("[料品名称] = '" & e.DataRow("料品名称") & "'")
            For Each dr As DataRow In drs
                If dr("通用范围").IndexOf(s) > 0 Then
                    e.DataRow("料品编码")= dr("料品编码")
                End If
            Next
        End If
End Select


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


加好友 发短信
等级:五尾狐 帖子:1018 积分:7150 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2011/1/23 16:17:00 [只看该作者]

现在这样就可以了,请问大家还有其他好的方案吗?

Select Case e.DataCol.Name

Case "成品名称"
        If e.DataRow.IsNull("成品名称") = False Then
            Dim s As String =e.DataRow("成品名称")
            Dim drs As List(Of DataRow)
            drs = DataTables("原材料基础数据表").Select("[料品名称] = '" & e.DataRow("料品名称") & "'")
            For Each dr As DataRow In drs
                If dr("通用范围").IndexOf(s) > -1 Then
                    e.DataRow("料品编码")= dr("料品编码")
                End If
            Next
        End If
End Select

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/1/23 16:47:00 [只看该作者]

可以用Like,具体参考:

 

http://help.foxtable.com/topics/0102.htm

 


 回到顶部