参照做的列项设置通用版，能够自动获取表名列名并进行相关数据填写但是不能在数据填写后调到其他表中无法使用数据词典求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 参照做的列项设置通用版，能够自动获取表名列名并进行相关数据填写但是不能在数据填写后调到其他表中无法使用数据词典求解

共有4457人关注过本帖树形打印复制链接主题：参照做的列项设置通用版，能够自动获取表名列名并进行相关数据填写但是不能在数据填写后调到其他表中无法使用数据词典求解

有点甜

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

加好友

发短信

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

Post By：2014/7/31 10:53:00 [只看该作者]

列控件 enter 事件

Dim ts As String = ""
For Each t As Col In Tables(e.Form.Controls("ComboBox1").text).Cols
ts &= t.Name & "|"
Next
e.sender.ComboList = ts.TrimEnd("|")

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）列控件 enter 事件 Dim ts ... 发帖心情

Post By：2014/7/31 11:20:00 [只看该作者]

谢谢我继续学习

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜） [upload=rar,卷宗.rar]viewFil... 发帖心情

Post By：2014/7/31 17:58:00 [只看该作者]

这样？

在项目全局表属性中？

If e.Table.Name <> "卷宗封面" Then

If e.IsFocusCell Then

Dim filter As String = "表名 = '" & e.Table.Name & "' and 列名 = '" & e.Col.Name & "' and 停用 = false"

Dim fdr As DataRow = DataTables("列项设置").Find(filter)

If fdr IsNot Nothing Then

'If fdr("多值字段") Then e.Col.DataCol.ExtendType = ExtendTypeEnum.Values

e.Col.ComboList = fdr("下拉选项")

End If

everybody

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

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

Post By：2014/11/6 8:50:00 [只看该作者]

小白有同样疑问，请教最终解决方案，楼主可否演示？

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：参照做的列项设置通用版，能够自动获取表名 列名并进行相关数据填写 但是不能在数据填写后 调到其他表中 无法使用数据词典 求解

主题：参照做的列项设置通用版，能够自动获取表名列名并进行相关数据填写但是不能在数据填写后调到其他表中无法使用数据词典求解