[求助] 逻辑控件录入方式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 逻辑控件录入方式

共有2211人关注过本帖树形打印复制链接主题：[求助] 逻辑控件录入方式

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 逻辑控件录入方式 发帖心情

Post By：2014/9/10 10:07:00 [只看该作者]

我有一个控件，公司如下。其中 “直连”控件为逻辑控件；当我录入数据是提示出错。我该怎么改这个公式？

For i As Integer = 1 To 6

If e.Form.Controls("机房名称" & i).Text > "" Then

Dim ndr As DataRow = DataTables("机房设备端口应用表").AddNew

ndr("业务类别") = "业务"

ndr("业务名称") = e.Form.Controls("业务名称").Text

ndr("业务序号") = e.Form.Controls("业务序号" & i).Text

ndr("机房名称") = e.Form.Controls("机房名称" & i).Text

ndr("设备名称型号") = e.Form.Controls("设备名称型号" & i).Text

ndr("设备槽位端口") = e.Form.Controls("设备槽位端口" & i).Text

ndr("直连标记") = e.Form.Controls("直连" & i).Text

'ndr("板盘类型") = e.Form.Controls("板盘类型" & i).Text

ndr("机柜编号") = e.Form.Controls("机柜编号" & i).Text

ndr("板盘端子名称") = e.Form.Controls("板盘端子名称" & i).Text

End If

此主题相关图片如下：360截图20140910100649906.jpg

有点甜

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

加好友

发短信

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

Post By：2014/9/10 10:10:00 [只看该作者]

ndr("直连标记") = e.Form.Controls("直连" & i).Checked

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2014/9/10 10:22:00 [只看该作者]

清除控件内容时，逻辑控件“直连”该怎么改？

For i As Integer = 1 To 6

e.Form.Controls("业务序号" & i).Value = Nothing

e.Form.Controls("机房名称" & i).Value = Nothing

e.Form.Controls("设备名称型号" & i).Value = Nothing

e.Form.Controls("设备槽位端口" & i).Value = Nothing

'e.Form.Controls("直连" & i).Value = Nothing

e.Form.Controls("板盘类型" & i).Value = Nothing

e.Form.Controls("机柜编号" & i).Value = Nothing

e.Form.Controls("板盘端子名称" & i).Value = Nothing

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/10 10:24:00 [只看该作者]

e.Form.Controls("直连" & i).Value = False

有点甜

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

加好友

发短信

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

Post By：2014/9/10 10:25:00 [只看该作者]

e.Form.Controls("直连" & i).Checked = False

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2014/9/10 11:19:00 [只看该作者]

有一个多情况下关联表筛选公式；帮忙修改红色部分公式。

If Forms("电路查询(设备端口应用)关联窗口").Opened() '一定要判断用于模拟关联表的窗口是否已经打开

Dim t As Table = Tables("电路查询(设备端口应用)关联窗口_Table1")

With Tables("机房设备端口应用表")

If .Current Is Nothing Then

t.Filter = "False"

Else

t.Filter = "机房名称 = '" & .Current("机房名称") & "' and 设备名称型号 = '" & .Current("设备名称型号") & "' and 机柜编号 is not null"

要实现： ‘机房名称’ 和 ‘设备名称型号’ 相同并且 ‘机柜编号‘ 不为空或者 ‘机房名称’ 和 ‘设备名称型号’ 相同并且 ‘直连标记‘ 不为空

t.Sort = "设备槽位端口"

End If

End With

End If

最终达到下图效果：其中’直连标记‘为逻辑控件

此主题相关图片如下：360截图20140910111738687.jpg

[此贴子已经被作者于2014-9-10 11:20:05编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/9/10 11:23:00 [只看该作者]

t.Filter = "机房名称 = '" & .Current("机房名称") & "' and 设备名称型号 = '" & .Current("设备名称型号") & "' and 机柜编号 is not null or 机房名称 = '" & .Current("机房名称") & "' and 设备名称型号 = '" & .Current("设备名称型号") & "' and 直连标记 is not null"

wumingrong1

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

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2014/9/10 11:30:00 [只看该作者]

好像不行；其中直连标记为逻辑控件；如下图’直连标记‘和’机柜编号‘都为空的时候、还是会被筛选出来

此主题相关图片如下：360截图20140910113023000.jpg

有点甜

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

加好友

发短信

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

Post By：2014/9/10 11:45:00 [只看该作者]

直连标记 is not null 改成直连标记 = True

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

主题：[求助] 逻辑控件录入方式