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


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

主题:实现“入库单在保存时自动生成会计凭证”

帅哥哟,离线,有人找我吗?
有点色
  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  62楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/19 16:03:00 [只看该作者]

谢谢老师,麻烦了


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  63楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/19 16:12:00 [只看该作者]

老师:你好!测试后出现“未将对象引用设置到对象的实例。”
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.3.18.1
错误所在事件:窗口,订单筛选,Button1,Click
详细错误信息:
未将对象引用设置到对象的实例。”

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  65楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/19 16:52:00 [只看该作者]

谢谢老师!


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  66楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/19 18:06:00 [只看该作者]

老师:你好!请教一下,出库的单价列怎样实现按客户、品名、等级引用订单表中单价
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:出库单价.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106316 积分:540715 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/5/19 20:28:00 [只看该作者]

出库表DataColChanged事件

Select Case e.DataCol.Name
    Case "客户名称","品名","等级"
        If e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("品名") OrElse e.DataRow.IsNull("等级") Then
            e.DataRow("单价") = Nothing
        Else
            Dim dr As DataRow = DataTables("订单").Find("客户名称='" & e.DataRow("客户名称") & "' And 品名 = '" & e.DataRow("品名") & "'")
            If dr IsNot Nothing Then
                e.DataRow("单价") = dr("单价_" & e.DataRow("等级") & "等")
            End If
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  68楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/20 9:48:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  69楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:306 积分:3860 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2017/5/22 15:14:00 [只看该作者]

老师:你好!我想实现:1、输入期初余额(假如1999-01-31余额3000),保存重新打开项目期后,余额操持不变。2、在窗口1输入起始日期为1999-02-01结束日期为1999-02-28点击查询后,表的第一行为1999-01-31的余额3000,摘要列自动生成“期初余额”,起始日期输入1999-03-01结束日期输入1999-03-31后,表的第一行为1999-02-28的余额3039,同样摘要列自动生成“期初余额”。3、每次查询的最后一行这为本期间汇总行(收入、支出合计、余额),4、最后的余额能在“Label4”中大写显示,麻烦老师给予指导,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

参考

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


 回到顶部