主题：[求助]扩展-多文件中的输入

If e.DataCol.Name = "型号" Then '发生变化的是型号列吗?

    Dim dr As DataRow

    dr = DataTables("模具图").Find("型号 = '" & e.DataRow("型号") & "'" ) '在工程表中找到型号列    

    If dr IsNot Nothing '如果找到, 则设置各列内容

        e.DataRow("模具图")= dr("模具图")

    End If

End If