以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DataColChanged代码不执行，有强制它执行吗，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85397)
--  作者：limit_1982
--  发布时间：2016/5/25 8:36:00
--  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

[此贴子已经被作者于2016/5/25 8:36:17编辑过]
--  作者：Hyphen
--  发布时间：2016/5/25 8:49:00
--  
去掉SystemReady = False


另外建议在插入的时候就取得“回扣”的值一起插入，这样效率更好
--  作者：大红袍
--  发布时间：2016/5/25 9:11:00
--  

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

 

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

 
--  作者：blackzhu
--  发布时间：2016/5/25 9:13:00
--  
SQL的函数 效率真是差.