Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？


  共有5579人关注过本帖树形打印复制链接

主题：求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？
帅哥哟，离线，有人找我吗？
Bin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/8 11:41:00 [只看该作者]

在粉色字下面多加个IF判断吧

if e.datarow("审核") then
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/8 11:51:00 [只看该作者]

出现错误提示：

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130708114931.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/8 11:52:00 [只看该作者]

你少了一个 END IF  

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/8 12:01:00 [只看该作者]

If e.DataCol.Name = "批次" OrElse e.DataCol.Name = "板料编码"  Then
End If e.DataRow("复核") Then

 

这个END IF摆在哪个位置？我上面那样放还是有错误提示。

 
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/8 12:02:00 [只看该作者]

放到最下面就行了.一个IF要对应一个ENd if

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/8 12:17:00 [只看该作者]

三个IF得补够三个END IF，现在不出在错误提示了，但是在排产表新增行且在复核列打上对钩，执行表没有出现对应的新增行。

if e.datarow("审核") then    
这段不对？复核列属性是逻辑。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/7/8 12:40:00 [只看该作者]

做个简单例子发上来说话，说明在什么地方写了代码，以及目的和问题

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/8 13:04:00 [只看该作者]

排产表做计划，计划通过审核安排开料，开料完成后报实际数，实际数通过复核转执行表报各工序执行情况，在执行表统计产量、工资等。


 

排产表有代码，希望上报实际开料数通过复核后在执行表自动新增行。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

[此贴子已经被作者于2013-7-8 13:15:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
pyinge
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：26 积分：401 威望：0 精华：0 注册：2010/8/24 14:31:00 		  发帖心情 Post By：2013/7/8 20:58:00 [只看该作者]

试试这个


If e.DataRow.IsNull("批次") = False AndAlso e.DataRow.IsNull("板料编码") =  False Then
    If e.DataRow("复核") =True   Then
        Dim dr As DataRow = DataTables("执行").AddNew()
        dr("批次") = e.DataRow("批次")
        dr("板料编码") = e.DataRow("板料编码")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/9 7:52:00 [只看该作者]

YEAH！通啦，谢楼上。
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询