[求助]表属性代码效果不会在窗口控件实现，求帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表属性代码效果不会在窗口控件实现，求帮助

共有2172人关注过本帖树形打印复制链接主题：[求助]表属性代码效果不会在窗口控件实现，求帮助

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]表属性代码效果不会在窗口控件实现，求帮助 发帖心情

Post By：2018/5/29 18:25:00 [只看该作者]

跨表列值下拉选择（没录入的）录入

表属性代码效果不会在窗口控件实现，求帮助

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表属性代码效果不会在窗口控件实现，求帮助.table

此主题相关图片如下：窗口控件跨表选择列录入.jpg

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/29 18:34:00 [只看该作者]

enter事件

Dim lst1 As List(of String) = DataTables("表B").GetUniqueValues("","第一列")
Dim lst2 As new List(of String)
Dim val As String = DataTables("表A").GetComboListString("第一列","[_Identify] <> " & Tables("表A").current("_Identify"))
val = val.Replace("|",",")
lst2.AddRange(val.split(","))
For Each v As String In lst2
    If lst1.Contains(v) Then
        lst1.Remove(v)
    End If
Next
e.sender.ComboList = String.Join("|",lst1.ToArray)