Dim dt As DataRow = e.DataRow Select Case e.DataCol.Name Case "姓名" ,"年度" Dim dr As DataRow = DataTables("工资年度结算").Find("姓名 = '" & dt("姓名") & "' And 年度 = '" & dt("年度") & "'") If dr Is Nothing Then dr = DataTables("工资年度结算").AddNew() dr("姓名") = dt("姓名") dr("年度") = dt("年度") Else dr("姓名") = dt("姓名") End If End Select