主题：DataColChanged代码不执行，有强制它执行吗，谢谢

用 for each  next  插入大量数据 

SystemReady = False
Try

 for each

代码

next

Catch ex As Exception
    MessageBox.Show("追加数据失败")
End Try

DataColChanged代码

Select Case e.DataCol.Name
   Case "产品"
   Dim dr As DataRow = DataTables("产品").SQLFind("产品 ='" & e.NewValue & "'")
    If dr IsNot Nothing  Then
    e.DataRow("回扣") =dr("回扣")
    End If
End Select