主题：怎么跨表清除单元格数据？

怎么跨表清楚单元格数据？例如：在表A的第一列有个字符型“7”，在表B的第二列输入“7”后，表A的“7”清除？

谢谢

用DataColChanged事件即可，估计你还没有看到事件编程，等你接触了，就知道怎么处理了，如果到时还是不会，再来提问。

谢谢狐爸的回复，我用DataColChanged有点时间了，引用很顺利，就是不能跨表清除。我在表B里有个“轴号”列，在表B的DataColChanged事件里编了如下代码，但是不执行，也不提示错误，烦请狐爸您看看，谢谢！

If e.DataCol.Name = "轴号" Then
           Dim dr As DataRow
        dr = DataTables(表A).Find("[轴号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            dr=Nothing                                           
        End If
    End If

楼主：你的这句代码有问题

谢谢您！！另外

因为我表A的轴号有很多列，分ABCD等列名，我要每一列都写吗？

 dr = DataTables(表A).Find("[轴号A] = '" & e.NewValue & "'") 

dr = DataTables(表A).Find("[轴号B] = '" & e.NewValue & "'") 

dr = DataTables(表A).Find("[轴号C] = '" & e.NewValue & "'")

..............
呵呵，麻烦您了

 

楼主：你把你的文件上传上来会更容易处理一点

项目中的号码是唯一的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1_1130.zip

If e.DataCol.Name = "经轴号" Then
    Dim dr As DataRow
    Dim Multi As String = "空轴_号码_A|空轴_号码_B|空轴_号码_C|空轴_号码_D|空轴_号码_E|空轴_号码_F|空轴_号码_G|空轴_号码_H|空轴_号码_I|空轴_号码_J|空轴_号码_1|空轴_号码_2|空轴_号码_K|空轴_号码_L|空轴_号码_M|空轴_号码_N|空轴_号码_O|空轴_号码_3|空轴_号码_5|空轴_号码_4"
    Dim Values() As String
    Values = Multi.split("|")
    For Index As Integer = 0 To Values.Length - 1
        dr = DataTables("表A").Find(Values(Index) & " = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            dr(Values(Index)) = Nothing
        End If
    Next
End If

谢谢，解决了。就是表A中的个数无法自动计算

看另一贴。