以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：給临时列赋值报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87689)
--  作者：bahamute
--  发布时间：2016/7/17 11:44:00
--  请教：給临时列赋值报错
外部数据源，增加临时列 “排序”，然后给临时列赋值，
但一运行到到  dr("排序")=i  就报错：未将对象引用设置到对象的实例
难道操作临时列还有别的要求？

Dim Names As new List(of String)
Names.Add("F104")
Names.Add("F105")
Names.Add("F106")
If Names.Count = DataTables("测算表").DataRows.Count
    If DataTables("测算表").DataCols.Contains("排序") Then
        DataTables("测算表").DataCols.Delete("排序")
        DataTables("测算表").Save()
    End If

    DataTables("测算表").DataCols.Add("排序",Gettype(Integer))
    DataTables("测算表").Save()
    Dim str As String = ""
    For i As Integer = 0 To Names.Count-1
        Dim dr As DataRow = DataTables("测算表").Find("工号=\'" & trim(Names(i)) & "\'")
        \'MessageBox.Show("A")
        If dr IsNot Nothing Then
            dr("排序")=i
        Else
            str+=dr("姓名") & "/"
        End If
    Next
    MessageBox.Show("B")
End If
[此贴子已经被作者于2016/7/18 8:26:03编辑过]
--  作者：bahamute
--  发布时间：2016/7/18 8:26:00
--  
顶
--  作者：Hyphen
--  发布时间：2016/7/18 10:13:00
--  
去掉这段
Else
            str+=dr("姓名") & "/"

没有意义