If e.DataRow("参加分配人员").Contains("张") Then e.DataRow("张") =e.DataRow("金额")/e.DataRow("参加分配人数") End If If e.DataRow("参加分配人员").Contains("李") Then e.DataRow("李") =e.DataRow("金额")/e.DataRow("参加分配人数") End If If e.DataRow("参加分配人员").Contains("王") Then e.DataRow("王") =e.DataRow("金额")/e.DataRow("参加分配人数") End If