Dim drs As List(Of DataRow)drs = DataTables("OrderDetail").Select("[待发运] = True")'drs = DataTables("OrderDetail").Select("[待发运] = True" And "[OrderNumber]=Fa")For Each dr As DataRow In drs dr("发运") = TrueNext
你的代码不是要勾选吗?