不好意思,老师,我找到原因了。我的思路似乎开始错了!抱歉耽误您时间了!
可用代码如下:
If e.DataCol.Name = "第二列" Then
Dim dr As DataRow =DataTables("表B").Find("第一列 = '" & e.DataRow("第一列") & "'")
If dr IsNot Nothing Then
If e.NewValue = "AAA" Then
dr("第二列")="BBC"
Else If e.NewValue = "ABA" Then
dr("第二列")="BBa"
Else If e.NewValue = "ACA" Then
dr("第二列")="BBD"
End If
End If
End If