以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多列内容不允许为空的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44607)

--  作者:zyys2813
--  发布时间:2014/1/4 21:41:00
--  [求助]多列内容不允许为空的代码
我查帮助只查到对某一列新值不充许为空的例子
DataColChanging中写如下的代码
If e.DataCol.Name = "制品名称" Then
    If e.NewValue Is Nothing Then
        MessageBox.Show("制品名称不允许为空!")
        e.Cancel = True
    End If
End If
我的问题:
一   对新增的行不起作用,怎么写
二   要求有多列内容不能为空如何简化代码
新手一个,望大神赐教

--  作者:有点甜
--  发布时间:2014/1/4 21:47:00
--  
 不可能对新增的行不起作用的。

Dim cs() As String = {"制品名称", "第二列"}
If Array.IndexOf(cs, e.DataCol.Name) > -1 Then
    If e.NewValue Is Nothing Then
        MessageBox.Show(e.DataCol.Name & "不允许为空!")
        e.Cancel = True
    End If
End If
[此贴子已经被作者于2014-1-4 21:48:03编辑过]

--  作者:zyys2813
--  发布时间:2014/1/4 22:13:00
--  
感谢 有点甜 老师

新增的行在保存前是不起作用的

--  作者:有点甜
--  发布时间:2014/1/4 22:25:00
--  
 不可能不起作用,有没有例子说明?