Select Case e.DataCol.Name Case "第一列","第二列","第三列" If e.DataRow.IsNull("第一列") = False AndAlso e.DataRow.IsNull("第二列") = False Then Dim bm As String = e.DataRow("第一列") Dim lm As String = e.DataRow("第二列") DataTables(bm).ReplaceFor(lm, e.DataRow("第三列")) End If End Select