以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  类“datatable”没有默认属性,因此无法被索引  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193545)

--  作者:g1j2h3
--  发布时间:2024/9/24 16:51:00
--  类“datatable”没有默认属性,因此无法被索引
麻烦大师看一下,下边代码错在哪里,
Dim Vals As List(Of String())
Vals = DataTables("库存表_Table1").GetValues("商品类别|商品编号|商品名称|规格型号|单位|期初库存数量|入库数量|出库数量|库存数量")
If DataTables("库存表").Find("商品编号 = \'" & dt("商品编号") & "\'") Is Nothing Then
    For i As Integer = 0 To Vals.Count - 1
        Dim dr As DataRow = DataTables("库存表").AddNew()
        dr("商品类别") = Vals(i)(0)
        dr("商品编号") = Vals(i)(1)
        dr("商品名称") = Vals(i)(2)
        dr("规格型号") = Vals(i)(3)
        dr("单位") = Vals(i)(4)
        dr("期初库存数量") = Vals(i)(5)
        dr("入库数量") = Vals(i)(6)
        dr("出库数量") = Vals(i)(7)
        dr("库存数量") = Vals(i)(8)
    End If
Next

--  作者:有点蓝
--  发布时间:2024/9/24 17:10:00
--  
不像是这段代码的问题。调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错
--  作者:g1j2h3
--  发布时间:2024/9/24 17:11:00
--  
提示是下边代码
If DataTables("库存表").Find("商品编号 = \'" & dt("商品编号") & "\'") Is Nothing Then
--  作者:g1j2h3
--  发布时间:2024/9/24 17:28:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:666.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/9/24 17:39:00
--  
代码不完整。【dt("商品编号") 】这里的dt是什么东西?