Dim Products As List(Of String)
Dim aa As DataRow
Dim b As Integer
Dim i As Integer
Products = DataTables("产品").GetValues("产品名称")
b=products.Count
Output.show(b)
For i=0 To b
aa=DataTables("产品").DataRows(i)
'If aa("产品编号") Is Nothing Then //用Nothing没有动静。
If aa("产品编号") IsNot Nothing Then //有反应，但是Nothing的行也有变化
aa("测试")=1111
‘aa("测试")=Nothing
'DataTables("产品").DataRows(i).Delete() //如果执行这句就会弹出错误信息。
End If
Next
'For Each Product As String In Products
'Output.Show(Product)
'Next
///最后问题，我原来的目标是想删除空行的。（新手入门，学了后面的忘了前面。不知道怎么删除。）
加好友 
发短信
Post By：2016/1/7 15:41:00 [只看该作者]
