dim dr as datarow = tables("表A").current.datarow
Dim fdr As DataRow = DataTables("续费表").Find("设备ID号 = '" & dr("设备ID号") & "'")If fdr Is Nothing Then dr("是否使用")= FalseElse dr("是否使用")= TrueEnd If