主题：[求助]

单独做一个同步按钮吧。

DataTables("机房板件端口表").DataRows.Clear
For Each dr As DataRow In DataTables("机房设备板件表").Select("机房名称 is not null")
    Dim drs As List(Of DataRow) = DataTables("板件端口列表").Select("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "'")
    For Each r As DataRow In drs
        Dim ndr As DataRow = DataTables("机房板件端口表").AddNew
        ndr("机房名称") = dr("机房名称")
        ndr("设备名称") = r("设备名称")
        ndr("设备型号") = r("设备型号")
        ndr("端口编号") = r("端口编号")
        ndr("板件名称") = r("板件名称")
        ndr("板件型号") = r("板件型号")
        ndr("板件槽位") = dr("板件槽位")
        ndr("板件型号") = r("板件型号")
    Next
Next

编写DataRowDeleting事件

Dim dr As DataRow = e.DataRow
DataTables("机房板件端口表").DeleteFor("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'")

 beforeDeleteDataRow事件

Dim dr As DataRow = e.DataRow
Dim fdr As DataRow = DataTables("机房板件端口表").Find("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "' and 端口应用 is not null")
If fdr IsNot Nothing Then
    msgbox("有内容,不能删除")
    e.Cancel = True
Else
    DataTables("机房板件端口表").DeleteFor("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'")
End If