主题：[求助] 标间条件批量增加行

最基础的判断吧？

If idx Is Nothing Then

Else

End If

Dim r As Row = Tables("集客业务工单清单表").current
Dim idx As DataRow = DataTables("OLT设备VLAN使用清单表").sqlFind(" OLT网元IP地址 ='" & r("IP") & "'  and  内层VLAN ='" & r("内层VLAN") & "' ")
If idx Is Nothing Then
    Dim nd As DataRow = DataTables("OLT设备VLAN使用清单表").AddNew
    nd("OLT网元IP地址") = r("OLT网元IP地址")
    nd("外层VLAN") = r("外层VLAN")
    nd("内层VLAN") = r("内层VLAN")
    nd("客户名称") = r("管线ONU名称")
   
    Dim Result As DialogResult
    Result = MessageBox.Show( "确定保存【OLT设备VLAN使用清单表】:请按  [是]" & vbcrlf & "放弃保存修改:请按  [否]", "非常关键提醒", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
    If Result = DialogResult.Yes Then
        DataTables("OLT设备VLAN使用清单表").Save()
    Else
    End If
Else
    MessageBox.show("【OLT设备VLAN使用清单表】存在相同数据!!!", "非常关键提醒")       
End If