Select Case e.DataCol.name Case "Islx","lxrq" Dim fdr As DataRow = DataTables("tblcgys").find("cgysID = '" & e.DataRow("ysID") & "'") If fdr IsNot Nothing Then msgbox(2) fdr("lxI") = e.DataRow("Islx") fdr("lxIrq") = e.DataRow("lxrq") End If End Select