1、代码这样写
If r("报价单号") IsNot Nothing Then
改成
If r.IsNull("报价单号") = False Then
2、你需要在CurrentChanged事件写代码,才会对每一行有效。