Foxtable(狐表)用户栏目专家坐堂 → new list(of datarow) add出错


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

主题:new list(of datarow) add出错

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


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
new list(of datarow) add出错  发帖心情 Post By:2023/12/6 10:19:00 [只看该作者]

    如下,想把新增的datarow加入到一个空集合。但是 xinrows.add(dr)这里出错,显示未将对象引用设置到对象的实例。MessageBox.Show(1)正常, MessageBox.Show(2)没显示。


        Dim xinrows As List(Of DataRow)
        For i As Integer = 0 To 100
            Select Case sheet(0, i).Text.Trim
                Case ""
                    Exit For
                Case "检验单号"
                    checkNO = sheet(1, i).Text
                Case "批号"
                    batchno = sheet(1, i).Text
                Case Else
                    Dim dr As DataRow = DataTables("QC数据").AddNew
              
                    dr("文件名称") = FileSys.GetName(file)
                   
                    dr("修改日期") = ifo.LastWriteTime
                    dr.save
                    MessageBox.Show(1)
                    xinrows.add(dr)
                   MessageBox.Show(2)

            End Select
        Next
        MessageBox.Show(3)
        For Each dr As DataRow In xinrows
            dr("") = batchno
           
        Next

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


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2023/12/6 10:29:00 [只看该作者]

 Dim xinrows As new List(Of DataRow)  要加new

 回到顶部