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


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

主题：[求助]统计
帅哥哟，离线，有人找我吗？
大红袍
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/5 18:12:00 [只看该作者]

 看9楼代码

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/5/5 18:45:00 [只看该作者]

老师，当数量列输入数据后库存列不能及时刷新，要重置编号明细列在能刷新库存列数据。
下面是计算库存的代码，代码能修改吗？
Select Case e.DataCol.Name
    Case "入库单编号明细","入库批次号"
        Dim filter As String = "入库批次号 = '" & e.DataRow("入库单编号明细") & "' and 批次号 = '" & e.DataRow("批次号")  & "'"
        e.DataRow("库存") = e.DataRow("入库_数量") - DataTables("出库明细").Compute("sum(出库_数量)", filter)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/5 18:52:00 [只看该作者]

Select Case e.DataCol.Name
    Case "入库单编号明细","入库批次号","入库_数量"
[此贴子已经被作者于2016/5/5 18:51:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/5/5 18:58:00 [只看该作者]

老师好了，谢谢

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/5/6 13:28:00 [只看该作者]

老师好，下面代码报错。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/6 14:24:00 [只看该作者]

方法一：

 

Dim khgy As New SQLCommand
Dim gy As DataTable
khgy.ConnectionName = "进销存数据库"
khgy.CommandText = "SELECT DISTINCT 客户供应商 Fr om {通讯录} where 群组分类 = '供应商'"
gy = khgy.ExecuteReader
e.Form.Controls("ComboBox5").ComboList = gy.GetComboListString("客户供应商")
[此贴子已经被作者于2016/5/6 14:24:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/6 14:28:00 [只看该作者]

方法二：

 

Dim khgy As New SQLCommand
Dim gy As DataTable
khgy.ConnectionName = "进销存数据库"
khgy.CommandText = "SELECT 客户供应商, 群组分类 Fr om {通讯录}"
gy = khgy.ExecuteReader
e.Form.Controls("ComboBox5").ComboList = gy.GetComboListString("客户供应商", "群组分类 = '供应商'")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/5/6 17:35:00 [只看该作者]

谢谢老师

 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05695 秒, 5 次数据查询