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


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

主题:[求助]

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


加好友 发短信
等级:二尾狐 帖子:534 积分:4408 威望:0 精华:0 注册:2012/11/28 16:03:00
[求助]  发帖心情 Post By:2015/12/12 15:36:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:534 积分:4408 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2015/12/12 15:37:00 [只看该作者]

老师你好,1,窗口中入库单\出库单主表用鼠标点无反应,刚打开项目时正常,切换后或输入数据就出现问题,

2,另材料库存表的基本信息也出现问题,当重置物料信息表的序号列时,每重置一下就会再生成一次相同信息,

3,窗口中的材料月结表的代码麻烦修改一下,数据来自3个表:初始表,入库明细表,出库明细表

谢谢!!!


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/12 15:57:00 [只看该作者]

1. PrepareEdit做了权限控制,没有权限自然不能修改

2. 物料信息表DataColChanged事件重复了2次序号操作

Select Case e.DataCol.name
    Case "序号"
        If e.NewValue  Is Nothing Then
            e.DataRow("材料编号") = Nothing
        Else
            e.DataRow("材料编号") = "CL " & "- " &  e.DataRow("序号")
        End If
End Select
Select Case e.DataCol.name
    Case "材料编号"
        Dim dr As DataRow = DataTables("材料库存表").Find("材料编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("材料库存表").AddNew()

3. 改什么,有什么问题?


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


加好友 发短信
等级:二尾狐 帖子:534 积分:4408 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2015/12/12 16:05:00 [只看该作者]

是我表达不清,鼠标点无反应:是指点窗口主表的行时,应关联显示子表,不是编辑,鼠标只能在主表同一行操作,请打开项目测试,谢谢

 


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/12 17:32:00 [只看该作者]

可以确定是窗口ValueChanged事件的以下代码引起的,注释就没事了。换个方式处理一下


Else
    e.Form.Controls("仓库名称").Enabled  = False
    e.Form.Controls("入库类型").Enabled = False
    e.Form.Controls("供应商名称").Enabled = False
......

 回到顶部