For Each Name As String In Names If e.DataCol.Name ="一折统号" Then '发生变化的是产品名称吗? '在产品表找出该产品 Dim dr As DataRow = DataTables("粮食直补").Find("银行账号 = " & "'" & e.DataRow("一折统号") & "'" ) If dr IsNot Nothing '如果找到,则设置各列内容 e.DataRow("农户姓名")= dr("农户姓名") e.DataRow("身份证号")= dr("身份证号") End If End If