[求助]必填字段代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]必填字段代码

共有3322人关注过本帖树形打印复制链接主题：[求助]必填字段代码

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/21 14:18:00 [显示全部帖子]

beforeSaveDataRow事件

If e.DataRow.IsNull("A") OrElse e.DataRow.IsNull("B") OrElse e.DataRow.IsNull("C") Then

msgbox("某行没填")

e.Cancel = True

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/21 20:53:00 [显示全部帖子]

参考代码

http://www.foxtable.com/help/topics/0644.htm

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/21 21:32:00 [显示全部帖子]

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 If
End If

下一主题 >> << 上一主题

主题：[求助]必填字段代码