DataColChanged事件
If e.DataCol.name = "LSH" Then Dim fdr As DataRow = DataTables("xls").find("LSH = '" & e.DataRow("LSH") & "'") If fdr IsNot Nothing Then e.DataRow("DH") = fdr("DH") End IfEnd If