如何对空行循环赋值，我写了如下代码，错误比较多，望老师指出错误，或者指点更好更简洁的方法
If e.DataRow.Isnull("姓名") = True then
Dim t1 As Byte
Dim t As List(Of String) = DataTables("客服目标").GetValues("姓名","月=" & Date.Today.month)
Dim t3 As List(Of String) = DataTables("组合1").GetValues("姓名","月=" & Date.Today.month)
t1 = t.Count
Dim t5 As Integer = DataTables("组合1").DataRows.Count '行计数
Dim t2 ,r As Integer
t2 = Tables("组合1").Compute("count(姓名)","姓名 Is Not Null") '非空计数
For r = 0 To t5 - t2
Dim dr As DataRow
dr = DataTables("组合1").Find("[月] Is null",,r)
For Each t6 As String In t
dr("姓名") = t(r)
Next
Next
End If
[此贴子已经被作者于2016/10/11 1:29:35编辑过]
加好友 
发短信
Post By：2016/10/11 1:27:00 [只看该作者]
