我这样改了,但还是没有用,帮看下
If e.DataCol.name = "fa piao号" Then
Dim pr As DataRow = e.DataRow.GetParentRow("进项fa piao") '找出对应的父行
If pr IsNot Nothing Then
If e.DataCol.Name = "fa piao号" Then
DataTables("进项fa piao").DataCols("fa piao代码").RaiseDataColChanged(pr) '通知系统此父行的数量列发生了改变,触发DataColChanged事件
DataTables("进项fa piao").DataCols("fa piao号码").RaiseDataColChanged(pr) '通知系统此父行的数量列发生了改变,触发DataColChanged事件
Dim dr As DataRow = DataTables("进项fa piao").Find("fa piao号 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("此'fa piao号'已存,不能重复录单!","提醒")
e.DataRow("fa piao号") =""
e.Cancel = True
End If
End If
End If
End If