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


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

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/8 11:41:00 [显示全部帖子]

DataTables("库存明细").DataRows.Clear
For Each dr As DataRow In DataTables("采购明细").Select("", "_Sortkey")
    Dim nr As DataRow = DataTables("库存明细").AddNew
    nr("客户") = dr("客户")
    nr("规格") = dr("规格")
    nr("型号") = dr("型号")
    nr("采购数量") = dr("采购数量")   
Next


老师，库存明细表闪个不停，上面代码错在哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/8 12:53:00 [显示全部帖子]

老师，表老是闪。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:库存待销.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/8 15:09:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:采购入库待销.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/8 20:53:00 [显示全部帖子]

老师，批次号列取值于唯一编号列右边6位数在6位数中间右边的0去掉，实际取数5位。

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:批次号.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/9 10:27:00 [显示全部帖子]

老师谢谢你，给我完整的写一个。谢谢了。

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/9 10:29:00 [显示全部帖子]

以下是引用Hyphen在2016/1/9 8:48:00的发言：
Dim s As String = "150615SH600679MR0006003"

Output.Show(s.SubString(s.Length-6,3) & s.SubString(s.Length-2,2))


老师谢谢你，给我完整的写一个。谢谢了
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/9 10:51:00 [显示全部帖子]

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/12 8:59:00 [显示全部帖子]

老师，我想换行或双击单元格触发该代码。

If Forms("系统").Opened Then
    Forms("系统").Controls("均价").Text = format(Tables("销售.销售明细").Compute("AVG(销售价)"),"0.000")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/12 10:46:00 [显示全部帖子]

老师，我逻辑锁定的数据表重新打开全部被自动解锁了。

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/1/12 12:43:00 [显示全部帖子]

以下是引用江南小城在2016/1/12 10:46:00的发言：
老师，我逻辑锁定的数据表重新打开全部被自动解锁了。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
 回到顶部
总数 29 上一页 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.37402 秒, 9 次数据查询