以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于datatable的find方法报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187204)

--  作者:foxuser_6666
--  发布时间:2023/6/30 10:30:00
--  [求助]关于datatable的find方法报错
如题  代码如下  其中bm循环中已定义  
Dim member_tb As DataTable = DataTables("部门人员表")
Dim mlis As List(Of String)
mlis = DataTables("部门人员表").GetValues("部门") \'取某一列
        Dim me_num As Integer = 10
        For Each strrr As String In mlis
            If bm = strrr
                Dim mb_dr As DataRow =  member_tb.Find("部门" = bm)
                me_num = mb_dr("人数")
            End If
        Next
报错如图  麻烦帮忙看一下是我哪里写错了
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2023/6/30 10:37:00
--  
http://www.foxtable.com/webhelp/topics/0396.htm,仔细理解一下示例三
--  作者:foxuser_6666
--  发布时间:2023/6/30 11:09:00
--  
感谢感谢   错误确实是因为没有做判断引起的  但是我之所以没有判断是因为我确定凡是能进if的都是存在的  所以我仔细检查了下   发现是find的参数错了
正确代码如下
Dim mb_dr As DataRow =  member_tb.Find("部门 = \'" & bm & "\'")
之前错误的是
Dim mb_dr As DataRow =  member_tb.Find("部门" = bm)