这样试试
Dim dt As Table = Tables("出货基础信息表")
For Each c As WinForm.Control In Forms("窗口3").Controls
If Typeof c Is WinForm.button Then
Dim b As WinForm.button = c
If b.text Like " '" & dt.Rows(1)("客户") & dt.Rows(1)("便次") & "'*"
Output.Show(b.name)
b.text = dt.Rows(1)("客户") & dt.Rows(1)("便次") & "订单处理完成"
b.BackColor = Color.Crimson
Else
Output.Show(b.name)
End If
End If
Next