加上判断
Dim t As Table = Tables("加工排产")For Each rr As Row In t.Rows
If rr("类别") = "计划" Then For Each cc As Col In t.Cols If cc.name Like "*调度设备*" AndAlso rr.isNull(cc.name) Then
加好友 
发短信
Post By：2017/9/6 8:49:00 [只看该作者]
