外部数据源，增加临时列 “排序”，然后给临时列赋值，
但一运行到到 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编辑过]
加好友 
发短信
Post By：2016/7/17 11:44:00 [只看该作者]
