Foxtable(狐表)用户栏目专家坐堂 → [求助]关于代码编制的问题


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

主题:[求助]关于代码编制的问题

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
[求助]关于代码编制的问题  发帖心情 Post By:2018/3/17 19:56:00 [显示全部帖子]

搞了半天,自动编号的问题还是没弄好,现在又说语法错误“4”运算符后缺失操作数。现在我把仓库收发存上传,本人初学者,好多问题都是看帮助,查网页,一点一点实验,琢磨半天才有一点进展。希望得到老师的帮助。

目前该表格还有以下问题:1、不知道怎么设置标题,单位和年月无法显示,如XX单位2018年XX月仓库收发存报表。

2、在数据录入表里,只用粘贴数据总表的代码,其它能够直接出来的信息直接显示,其它需要复选的也没问题,问题是收表和发表里根据判断应该能够自动填充每一笔数据啊,但是试了很久也没有搞对。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:仓库报表.table


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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/17 19:57:00 [显示全部帖子]

密码:888

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/20 11:38:00 [显示全部帖子]

谢谢老师,自动编码的代码这次正确了。还有一个问题:如果我还想添加一个判断函数,当最大编号旁边一列e.datarow(“打印属性”)对应行显示的是“已打印”,idx赋值才加1,否则等于最大值,该如何添加代码啊?还有代码编写规则我该怎么掌握呢?感觉我找不到规律。比如:

 

 

2、输入录入的时候,自动在收、发表添加添加数据?

 

http://www.foxtable.com/webhelp/scr/2490.htm    这个,我按照说明改好代码,但是我还希望,如果在产品表里只有“出入库”列中显示“收”,才在库存表里添加数据,该怎么修改代码呢?如果有几个条件,不仅仅是出入库显示“收”,或者显示“发”,但另一列“出库属性”显示“寄售”时,才在库存表里添加数据,该怎么修改代码呢?

多谢“有点甜”老师的赐教,万分感谢!!!

 

[此贴子已经被作者于2018/3/20 11:46:00编辑过]

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/20 12:12:00 [显示全部帖子]

多谢!


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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/21 10:57:00 [显示全部帖子]

Select Case e.DataCol.name
            Case "总码"
                Dim dr As DataRow = DataTables("收").Find("总码= '" & e.OldValue & "'")
                If dr Is Nothing Then
                    dr = DataTables("收").AddNew()
                    dr("总码") = e.DataRow("总码")
                    dr("日期") = e.DataRow("录入时间")
                    dr("物品类别") = e.DataRow("物品类别")
                    dr("资金类别") = e.DataRow("资金类别")
                    dr("名称") = e.DataRow("名称")
                    dr("规格") = e.DataRow("规格")
                    dr("单位") = e.DataRow("单位")
                    dr("数量") = e.DataRow("数量")
                    dr("单价") = e.DataRow("单价")
                    dr("金额") = e.DataRow("金额")
                    dr("供货商") = e.DataRow("供货商")
                    dr("经手人") = e.DataRow("经手人")
                    dr("单据编号") = e.DataRow("单据编号")
                    dr("备注") = e.DataRow("备注")
                End If
            Case  "数量","金额"
                Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
                If dr IsNot Nothing Then
                    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
                End If
            End  Select

[此贴子已经被作者于2018/3/21 11:03:17编辑过]

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/21 11:13:00 [显示全部帖子]

以上是原代码,编写完成执行后,“数据录入”表里[总码]列里添加总码后,不管“数据录入”表里的[出入库]列是否选择字符“发”或者“收”,在“收”表里将每一次的“数据录入”表里的对应内容显示出来,这显然不符合设计要求,因为“收”表里只允许显示[出入库]=“收”的项目。后来根据老师指点添加了IF判断语句,更改后的代码如下:

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/21 11:13:00 [显示全部帖子]

If e.DataCol.name = "出入库" Then
    If e.DataRow("出入库") = "收" Then
        Select Case e.DataCol.name
            Case "总码"
                Dim dr As DataRow = DataTables("收").Find("总码= '" & e.OldValue & "'")
                If dr Is Nothing Then
                    dr = DataTables("收").AddNew()
                    dr("总码") = e.DataRow("总码")
                    dr("日期") = e.DataRow("录入时间")
                    dr("物品类别") = e.DataRow("物品类别")
                    dr("资金类别") = e.DataRow("资金类别")
                    dr("名称") = e.DataRow("名称")
                    dr("规格") = e.DataRow("规格")
                    dr("单位") = e.DataRow("单位")
                    dr("数量") = e.DataRow("数量")
                    dr("单价") = e.DataRow("单价")
                    dr("金额") = e.DataRow("金额")
                    dr("供货商") = e.DataRow("供货商")
                    dr("经手人") = e.DataRow("经手人")
                    dr("单据编号") = e.DataRow("单据编号")
                    dr("备注") = e.DataRow("备注")
                End If
            Case  "数量","金额"
                Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
                If dr IsNot Nothing Then
                    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
                End If
            End  Select
        End If
    End If

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/21 11:14:00 [显示全部帖子]

结果,无论在“数据录入”表里输入什么物资,结果“收”表里全都不显示了,请教老师,这是什么原因啊?

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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/22 16:55:00 [显示全部帖子]

按照老师说的代码,和我需求的还是有出入,我把代码改成了:


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


加好友 发短信
等级:婴狐 帖子:42 积分:366 威望:0 精华:0 注册:2018/3/16 15:08:00
  发帖心情 Post By:2018/3/22 16:56:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "总码","出入库","库字"
        If e.DataRow("出入库") = "收" OrElse  e.DataRow("出入库") = "发"  AndAlso e.DataRow("库字") = "寄售" Then
            Dim dr As DataRow = DataTables("收").Find("总码= '" & e.oldvalue & "'")
            If dr Is Nothing Then
                dr = DataTables("收").AddNew()
                dr("总码") = e.DataRow("总码")
                dr("日期") = e.DataRow("日期")
                dr("物品类别") = e.DataRow("物品类别")
                dr("资金类别") = e.DataRow("资金类别")
                dr("名称") = e.DataRow("名称")
                dr("规格") = e.DataRow("规格")
                dr("单位") = e.DataRow("单位")
                dr("数量") = e.DataRow("数量")
                dr("单价") = e.DataRow("单价")
                dr("金额") = e.DataRow("金额")
                dr("供货商") = e.DataRow("供货商")
                dr("经手人") = e.DataRow("经手人")
                dr("单据编号") = e.DataRow("单据编号")
                dr("备注") = e.DataRow("备注")
            Else
                dr("总码") = e.DataRow("总码")
            End If
        End If
    Case  "数量","金额"
        If e.DataRow("出入库") = "收"  OrElse  e.DataRow("出入库") = "发"  AndAlso e.DataRow("库字") = "寄售" Then
            Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
        End If
End Select
[此贴子已经被作者于2018/3/22 16:56:57编辑过]

 回到顶部
总数 18 1 2 下一页