Foxtable(狐表) → 用户栏目 → 专家坐堂 → 思路问题


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

主题：思路问题
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 16:46:00 [显示全部帖子]

你是要做出库功能是吗？

 

1、从记录表选择输入，参考

 

http://www.foxtable.com/webhelp/scr/1459.htm

 

2、判断是否可以出库，参考

 

http://www.foxtable.com/webhelp/scr/1451.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 21:52:00 [显示全部帖子]

回复4楼，代码写得没问题。

 

如果还有其他问题，再提问。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 22:16:00 [显示全部帖子]

If e.DataCol.Name = "配件名称" OrElse e.DataCol.name = "数量" Then
    If e.DataRow("配件名称") <> Nothing Then
        Dim dr As DataRow
       
        dr = DataTables("库存").Find("[配件名称] = '" & e.DataRow("配件名称") & "'")
        If dr IsNot Nothing Then
            If e.DataRow("数量") > dr("库存数量") Then
                MessageBox.Show("库存配件数量不足,请及时补充!","提示")
            End If
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 22:51:00 [显示全部帖子]

e.dataRow("数量") = Nothing

e.Cancel = true
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/10 18:04:00 [显示全部帖子]

参考这种做法

 

http://www.foxtable.com/webhelp/scr/2490.htm

 

 
 回到顶部
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 次数据查询