主题：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

尽量不要用sqlFind，如果数据量特别大的话，执行效率很低的。还不如一次性加载后，用find

http://www.foxtable.com/help/topics/1587.htm