以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提示没有可访问的find接受此数目的参数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125724)
--  作者：yetle
--  发布时间：2018/10/5 9:53:00
--  提示没有可访问的find接受此数目的参数
If Tables("生产制造单_table2").Current IsNot Nothing Then
        If Tables("生产制造单_table2").TopPosition>-1 Then
            For  i As Integer=Tables("生产制造单_table2").BottomPosition To Tables("生产制造单_table2").TopPosition Step -1
                Tables("生产制造单_table2").Rows(i).Delete()
 Dim tb As Table = Tables("销售明细尺码")
 Dim fdr As DataRow = tb.Find("销售明细行ID = \'" & Tables("生产制造单_table2").Rows(i)("销售明细行ID") & "\' ")
 fdr("已安排制单")=False
            Next

        End If
End If
--  作者：有点甜
--  发布时间：2018/10/5 10:07:00
--  

改成

 

Dim fdr As DataRow = tb.DataTable.Find("销售明细行ID = \'" & Tables("生产制造单_table2").Rows(i)("销售明细行ID") & "\' ")

 
--  作者：yetle
--  发布时间：2018/10/5 10:51:00
--  
无法在 System.Int32 和 System.String 上执行“=”操作。
--  作者：有点甜
--  发布时间：2018/10/5 11:01:00
--  

Dim fdr As DataRow = tb.DataTable.Find("销售明细行ID = \'" & val(Tables("生产制造单_table2").Rows(i)("销售明细行ID")) & "\' ")