以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]输入限制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89775)

--  作者:114039247
--  发布时间:2016/8/29 18:25:00
--  [求助]输入限制
a表

商品编号
01
02

B表
商品编号
03【提示不存在的编号,取消输入】

在B表输入编号,如果编号在a表里不存在,取消输入,

这个代码要怎么写  。。。


--  作者:Hyphen
--  发布时间:2016/8/30 8:31:00
--  
参考:http://www.foxtable.com/webhelp/scr/1451.htm
--  作者:狐狸爸爸
--  发布时间:2016/8/30 14:52:00
--  

表B的DataColChanging事件代码:

 

if e.datacol.name = "商品编号" And e.Nevalue > "" then

    dim dr as datarow = datatables("表A").Find("商品编号=\'" & e.Newvalue & "\'")

    if dr is nothing then

         e.Cancel = true

    end if

end if

 

相关知识:

http://www.foxtable.com/webhelp/scr/0624.htm

http://www.foxtable.com/webhelp/scr/0396.htm

 

搞不定再说话。