atferedit事件仅在单元格里直接编辑的时候才能触发，到datacolchanged事件加一段
Select Case e.DataCol.name
Case "棋赛名称", "姓名"
Dim fdr As DataRow = DataTables("基本信息").SQLfind("[棋赛名称] = '" & e.DataRow("棋赛名称") & "' and [姓名] = '" & e.DataRow("姓名") & "'")
If e.DataRow.IsNull("棋赛名称") And e.DataRow.IsNull("姓名") Then
e.DataRow("编号") = Nothing
e.DataRow("姓名") = Nothing
End If
If fdr IsNot Nothing
e.DataRow("编号") = fdr("编号")
e.DataRow("姓名") = fdr("姓名")
End If
Case "备注"
Dim idx As Integer = Tables("比赛积分").FindRow(e.DataRow)
Tables("比赛积分").AutoSizeRow(idx)
End Select
加好友 
发短信
Post By：2020/4/30 9:53:00 [显示全部帖子]
