msgbox(1)----执行了
Dim drs As List(of DataRow) = DataTables("销售出库单列表").Select("邮箱 is null and 业务员 isnot null")
msgbox(drs.count)-----没执行
For Each dr As DataRow In drs
dr("邮箱") = GetPy(dr("业务员")).Replace(" ","") & "bdcom.com.cn"----没执行
Next
msgbox(2)-----没执行
就是找出业务员不为空和邮箱为空的行。怎么就没有弹出msgbox(drs.count)