Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表事件转化为窗口按钮控制


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

主题：[求助]表事件转化为窗口按钮控制
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		[求助]表事件转化为窗口按钮控制  发帖心情 Post By：2020/4/19 18:48:00 [只看该作者]

将以下表事件更改为按钮控制，应该怎么处理？请教各位老师
Select Case e.DataCol.name
    Case "入库批次"
        Dim dr As DataRow = DataTables("批次库存").Find("入库批次 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("批次库存").AddNew()
            dr("零件号") = e.DataRow("零件号")
            dr("入库批次") = e.DataRow("入库批次")
            dr("零件批次") = e.DataRow("零件批次")
            dr("部门") = e.DataRow("部门")
        Else
            dr("零件号") = e.DataRow("零件号")
        End If
End Select

Select Case e.DataCol.name
    Case "入库数量"
        Dim pr As DataRow
        pr = DataTables("批次库存").Find("零件批次 = '" & e.DataRow("零件批次") & "'")
        If pr IsNot Nothing Then
            DataTables("批次库存").DataCols("零件批次").RaiseDataColChanged(pr)
        End If
        Dim pr1 As DataRow
        pr1 = DataTables("辅料库存").Find("零件部门 = '" & e.DataRow("零件部门") & "'")
        If pr1 IsNot Nothing Then
            DataTables("辅料库存").DataCols("零件部门").RaiseDataColChanged(pr1)
        End If        
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2020/4/19 21:16:00 [只看该作者]

请老师帮下忙

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


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2020/4/19 22:50:00 [只看该作者]

请老师帮下忙
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/19 23:14:00 [只看该作者]

dim r as row = tabels("某表").current
if r isnot nothing then
        Dim dr As DataRow = DataTables("批次库存").Find("入库批次 = '" & r("入库批次") & "'")
        If dr Is Nothing Then
            dr = DataTables("批次库存").AddNew()
            dr("零件号") = r("零件号")
            dr("入库批次") = r("入库批次")
            dr("零件批次") = r("零件批次")
            dr("部门") = r("部门")
        Else
            dr("零件号") = r("零件号")
        End If
end if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询