以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]狐表列表项目能够强制只能来源于另一张表的列吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73658)
--  作者：fox20150629
--  发布时间：2015/8/24 13:42:00
--  [求助]狐表列表项目能够强制只能来源于另一张表的列吗
使用的是 动态列表，
If MainTable.Name = "表A" Then \'如果选择的主表是订单表
    Tables("表A").Cols("店铺名称").Combolist = DataTables("客户信息").GetComboListString("店铺名称")
End If
现在能否强制表A的来源只能是客户信息的店铺名称吗
--  作者：大红袍
--  发布时间：2015/8/24 14:16:00
--  

你控制此列不能手动录入即可。

 

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

 

 
--  作者：fox20150629
--  发布时间：2015/8/24 14:44:00
--  
以下是引用大红袍在2015/8/24 14:16:00的发言：

你控制此列不能手动录入即可。

 

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




 可是这种方法只能选择列表，无法使用输入助手，在列表项目很多的时候是没办法一项项拉下来的
--  作者：大红袍
--  发布时间：2015/8/24 15:04:00
--  

你可以去编写datacolchanging事件.

 

If e.DataCol.Name = "第一列" Then
   
    If e.NewValue <> Nothing Then
       
        If DataTables("表B").Find("第一列 = \'" & e.NewValue & "\'") Is Nothing Then
           
            e.cancel = True
           
            msgbox("值不对")
           
        End If
       
    End If
   
End If
--  作者：fox20150629
--  发布时间：2015/8/25 10:12:00
--  
终于解决了谢谢~