Foxtable(狐表) → 用户栏目 → 专家坐堂 → 实现“入库单在保存时自动生成会计凭证”


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

主题：实现“入库单在保存时自动生成会计凭证”
帅哥哟，离线，有人找我吗？
有点色
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/12 16:17:00 [显示全部帖子]

AfterLoad事件，写代码

 

Tables("入库明细导入_成品入库明细表").Filter="客户名称 ='"& Tables("成品出库主表").Current("客户名称") & "' and 出库 = false"
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/15 8:40:00 [显示全部帖子]

改成

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

msgbox(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/15 18:32:00 [显示全部帖子]

以下是引用nths在2017/5/15 18:13:00的发言：
老师：你好，假如要禁止编辑当前行的某一列，代码怎么写？，谢谢

 

这个，你需要编写startEdit事件了

 

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

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/17 12:11:00 [显示全部帖子]

改成

 

Dim f As New Filler
f.SourceTable = DataTables("入库明细表")
f.SourceCols = "入库单号,存货编号"
f.DataTable = DataTables("入库明细汇总表")
f.DataCols = "入库单号,存货编号"
f.ExcludeExistValue = True
f.Fill()

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/17 12:14:00 [显示全部帖子]

 看49楼。

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/18 23:05:00 [显示全部帖子]

以下是引用nths在2017/5/18 21:24:00的发言：
老师：你好!为什么经常会出现错误对话框(“类型“System.String”的对象无法转换为类型“Foxtable.EventString”。)，这是什么 原因 

 

没见过这样的错误，你执行什么代码或操作的时候出现的错误？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/19 14:07:00 [显示全部帖子]

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/19 15:38:00 [显示全部帖子]

 

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/19 16:18:00 [显示全部帖子]

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/22 15:56:00 [显示全部帖子]

 

参考

  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table
 回到顶部
总数 31 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.11719 秒, 9 次数据查询