以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  输入控制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152471)
--  作者：nbsugu_z
--  发布时间：2020/7/12 20:35:00
--  输入控制

Dim nms() As String = {"客户全称","客户","地址","联系电话","联系人","联系人手机","付款天数","客户英文简称"}   \'不允许为空的列名
For Each nm As String  In nms
    If e.DataRow.isnull(nm) Then
        messagebox.show(nm & "必须输入内容")
        e.Cancel = True
        Exit For
    End If
Next


设表A，，这是一个判断控制列名你能为空。现变通一下：当客户为空时不能输入其他数据，就是说只有客户不为空，其他当前行的其他列能才输入。代码如何写？什么事后中
--  作者：有点蓝
--  发布时间：2020/7/12 21:32:00
--  
prepareedit事件

if e.col.name <> "客户" then 
  if e.row.isnull("客户") then 
    e.cancel = true
end if
end if