- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78601)
-- 发布时间：2015/12/12 15:36:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存表.zip |
-- 发布时间：2015/12/12 15:37:00
--
老师你好,1,窗口中入库单\\出库单主表用鼠标点无反应,刚打开项目时正常,切换后或输入数据就出现问题,
2,另材料库存表的基本信息也出现问题,当重置物料信息表的序号列时,每重置一下就会再生成一次相同信息,
3,窗口中的材料月结表的代码麻烦修改一下,数据来自3个表:初始表,入库明细表,出库明细表
谢谢!!!
-- 发布时间：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. 改什么，有什么问题？
-- 发布时间：2015/12/12 16:05:00
--
是我表达不清,鼠标点无反应:是指点窗口主表的行时,应关联显示子表,不是编辑,鼠标只能在主表同一行操作,请打开项目测试,谢谢
-- 发布时间：2015/12/12 17:32:00
--
可以确定是窗口ValueChanged事件的以下代码引起的，注释就没事了。换个方式处理一下
Else
e.Form.Controls("仓库名称").Enabled = False
e.Form.Controls("入库类型").Enabled = False
e.Form.Controls("供应商名称").Enabled = False
......