以下命令、如果我想加一个判断，就是如果【OLT设备VLAN使用清单表】中已经存在与准备增加的行的【内层VLAN】相同的数据时；就不添加改行。命令该怎么修改？
比如：【OLT设备VLAN使用清单表】中的【内层VLAN】列已经有一行的数字为“6”；那么就只增加7行（1、2、3、4、5、7、8）
Dim r As Row = Tables("OLT设备VLAN规划清单表").current
If r("OLT网元名称") = "" Or r("业务类型") = "" Or r("外层VLAN") = "" Or r("内层VLAN起始") = "" Or r("内层VLAN截止") = "" Then
MessageBox.Show("请填写完整【OLT网元名称】【业务类型】【外层VLAN】【内层VLAN起始】【内层VLAN截止】内容!!!", "非常关键提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
For i As Integer = 1 To 8
' For Each r1 As Row In Tables("OLT设备VLAN使用清单表").Rows
' If r1("内层VLAN") <> Format(i) Then
Dim ndr As DataRow = DataTables("OLT设备VLAN使用清单表").AddNew
ndr("区域名称") = r("区域名称")
ndr("区域名称") = r("区域名称")
ndr("OLT网元名称") = r("OLT网元名称")
ndr("OLT网元IP地址") = r("OLT网元IP地址")
ndr("OLT设备厂家") = r("OLT设备厂家")
ndr("业务类型") = r("业务类型")
ndr("外层VLAN") = r("外层VLAN")
ndr("内层VLAN") = Format(i)
' Else
' End If
'Next
Next
End If
加好友 
发短信
Post By：2018/4/16 11:13:00 [只看该作者]
