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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2952人关注过本帖树形打印复制链接主题：[求助]

wumingrong1

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

加好友

发短信

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

[求助]

Post By：2014/8/28 16:58:00 [只看该作者]

如附件：我想实现当点击保存按钮后；“机房板件端口表”中能够自动新增符合条件的行。条件为：将“机房端口列表”中符合“机房设备板件表”新增加行条件的内容复制到“机房板件端口表”中去。

如下图：我在“机房设备板件表”中新增加了两行；如果我点击保存按钮；在“机房端口列表”中将出现图2的效果。我的‘保存’按钮公式该怎么写？

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.foxdb

[此贴子已经被作者于2014-8-28 16:58:37编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/8/28 17:17:00 [只看该作者]

单独做一个同步按钮吧。

DataTables("机房板件端口表").DataRows.Clear
For Each dr As DataRow In DataTables("机房设备板件表").Select("机房名称 is not null")
    Dim drs As List(Of DataRow) = DataTables("板件端口列表").Select("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "'")
    For Each r As DataRow In drs
        Dim ndr As DataRow = DataTables("机房板件端口表").AddNew
        ndr("机房名称") = dr("机房名称")
        ndr("设备名称") = r("设备名称")
        ndr("设备型号") = r("设备型号")
        ndr("端口编号") = r("端口编号")
        ndr("板件名称") = r("板件名称")
        ndr("板件型号") = r("板件型号")
        ndr("板件槽位") = dr("板件槽位")
        ndr("板件型号") = r("板件型号")
    Next
Next

wumingrong1

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

加好友

发短信

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

Post By：2014/8/28 17:39:00 [只看该作者]

以上是新增按钮；如果我要是想删除 “机房设备板件表”中的某个板件的同时能将 “机房端口列表”对应的数据删除点、该怎么写按钮命令

[此贴子已经被作者于2014-8-29 14:15:55编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/8/28 17:43:00 [只看该作者]

编写DataRowDeleting事件

Dim dr As DataRow = e.DataRow
DataTables("机房板件端口表").DeleteFor("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'")

wumingrong1

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

加好友

发短信

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

Post By：2014/8/29 14:17:00 [只看该作者]

如果我想在删除前增加个判断条件；该怎么办？

我在 “机房端口列表”中增加了‘端口应用’列；在删除时先检测要删除的板件中的‘端口应用’列是否存在内容，如果存在就弹出提示、如果没有就直接删除；

如附件：如果我要删除下图1这一行、就弹出“该板件有业务、不允许删除”；如果删除的是下图2这一行、就直接删除。

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

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

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

wumingrong1

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

加好友

发短信

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

Post By：2014/8/29 14:18:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.foxdb

有点甜

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

加好友

发短信

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

Post By：2014/8/29 14:31:00 [只看该作者]

beforeDeleteDataRow事件

Dim dr As DataRow = e.DataRow
Dim fdr As DataRow = DataTables("机房板件端口表").Find("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "' and 端口应用 is not null")
If fdr IsNot Nothing Then
    msgbox("有内容,不能删除")
    e.Cancel = True
Else
    DataTables("机房板件端口表").DeleteFor("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "' and 机房名称 = '" & dr("机房名称") & "' and 板件槽位 = '" & dr("板件槽位") & "'")
End If

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

主题：[求助]