主题：[求助]联动更新

在A表编辑每行可以更新或剪切某列再粘贴可以全部更新

这是什么意思？ 不明白

如果要更新整列，剪切某列再粘贴可以全部更新，这是笨办法效率太低，我要的是自动更新?

4楼的兄弟已经告诉你原因了，你应该将这样的代码设置在DataColChanged事件中，而不是AfterEdit事件中。

Dim dr As DataRow
If e.DataCol.Name = "造林树种_主要树种" Then
    dr = DataTables("树种").Find("[主要树种] = '" & e.DataRow("造林树种_主要树种") & "' ")
    If dr IsNot Nothing Then 
        e.DataRow("造林措施设计_造林密度") =  dr("造林密度") 
        e.DataRow("模型号") = dr("模型号")
        e.DataRow("植被类型") = dr("植被类型") '
        e.DataRow("种苗_苗木规格") = dr("苗木规格")
        e.DataRow("林种") = dr("林种")
    End If
End if

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林管理系统.rar