主题：控件中如何高效输入数据？

找到lm30，双 进入输入界面，用键盘快速输入2位数，按回车，再输2位数，按回车，这样快速输入7、8个数，看它在表上的反应速度

 

 肯定有其它代码影响。请上传有代码的例子。

看一看，没有传上我工作的哪个？

就是用“管理项目1.foxdb ”发布的？

 

那你就用 管理项目1.foxdb 做例子，做一个会出现这个错的例子啊

抱歉，我加了10000行代码测试确实有问题。

 

 

"管理项目1.foxdb "与“林谱”是一样的，只是林谱输入了6万多条数据了，它不是一开始就慢的，它是随着数据的增加而慢的。老师：你帮我看一看那节代码有问题？

1、行数越多，定位越慢，是肯定的；

 

2、是你Datacolchanged的这段代码影响了

 

每修改一次，就替换所有的表数据，这样是不对的

 

If e.DataCol.Name = "当年围径" Then
    DataTables("围径表").ReplaceFor("数0列",0, "当年围径 = 0")
    DataTables("围径表").ReplaceFor("数1列",1, "当年围径 = 1")
    DataTables("围径表").ReplaceFor("数2列",2, "当年围径 = 2")
End If

 

试试改成

 

If e.DataCol.Name = "株号" Then
    If e.DataRow.IsNull("株号") Then
        e.DataRow("行株编号") = Nothing
    Else
        e.DataRow("行株编号") = e.DataRow("行号") & "_" & e.DataRow("株号")
    End If
End If

If e.DataCol.Name = "地址编号" Then
    e.DataRow("单位") = e.DataRow("地址编号").substring(5,4)
    e.DataRow("建档时间") = e.DataRow("地址编号").substring(0,4)
    e.DataRow("定植时间") = e.DataRow("地址编号").substring(16,4)
Else If e.DataCol.Name = "当年围径" Then
    If e.DataRow("当年围径") = 0 Then
        e.DataRow("数0列") = 0
    Else If e.DataRow("当年围径") = 1 Then
        e.DataRow("数1列") = 1
    Else If e.DataRow("当年围径") = 2 Then
        e.DataRow("数2列") = 3
End If

我试试看。先谢了。