加好友 发短信
等级:一尾狐
帖子:474
积分:2964
威望:0
精华:0
注册:2018/1/15 13:54:00
|
[求助]论坛找的,必填代码运行出错 Post By:2020/2/5 11:50:00 [显示全部帖子]
BeforeSaveDataRow事件
If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行 If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行 Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行 If r.DataRow.RowState <> DataRowState.Unchanged Then Dim str() As String={"第一列","第二列"} Dim i As Integer For i=0 To str.Length-1 If r.IsNull(str(i)) Then e.Cancel=True msgbox(str(i) & " 没填") Exit For End If Next End If End IfEnd If
|
|