以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教列表中选择数据调出修改窗口造表中某字段全修改的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93616)

--  作者:hopestarxia
--  发布时间:2016/12/2 12:22:00
--  请教列表中选择数据调出修改窗口造表中某字段全修改的问题

项目中主要内容为入库记录表。HCCRK及HCCRKMX

设计了几个窗口为:

“入库列表”:列出了当月入库明细;

“新增入库”:输入入库信息的窗口;

“入库修改”:修改入库记录的窗口;

 

目前出现如下问题:

在入库列表窗口中,选择某一行数据调出“入库修改”窗口对原数据内容进行修改时,

如果是进入项目中直接点开,则调出的修改窗口明细没有数据,且关闭取消掉修改窗口后,明细表HCCRKMX表的单据编号(DJCODE)字段全变成了第一个单号;

如果在点击修改功能前,打开或操作过“新增入库”的窗口,则能正常调出数据,并完成数据修改维护功能。

 

请问老师此问题如何解决?(目前用了一个变通的办法暂时避开了此问题,就是在点列表上方的修改按钮时,按钮的单击代码写的是“打开“新增入库”窗口,--关闭“新增入库”窗口————打开“入库修改”窗口。)

附件中为项目文件,请老师指点。

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161202115714.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点色
--  发布时间:2016/12/2 12:41:00
--  

 参考上次的方法,你要分析下原因。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93119&skin=0

 


--  作者:hopestarxia
--  发布时间:2016/12/2 21:51:00
--  

老师,分析也测试了原因,修改窗口打开时,先获取选定行的数据,
加载时指定窗口主内容也窗口表内容于选取表选定行的单号,没有想明白问题怎么就出现了.看着代码应该是没有问题的啊.


--  作者:有点蓝
--  发布时间:2016/12/3 10:08:00
--  
\'收集并填充字段内容
Dim dst As Table = Tables("入库列表_Table1")
Dim dr As Row = dst.Current \'获得选定行
vars("str1") = dr("单据编号") \'保存原货品单号,确保变更后可以删除原记录
\'生成出入库明细数据
DataTables("hccrk").LoadFilter = "[djcode] = \'" & vars("str1") & "\'"
DataTables("hccrk").Load(False)

DataTables("hccrkmx").LoadFilter = "[djcode] = \'" & vars("str1") & "\'"
DataTables("hccrkmx").Load(False)

Dim i As Integer
Dim kz As String = "DateTimePicker1,ComboBox4,TextBox2,ComboBox2,ComboBox6,ComboBox3,TextBox1"
Dim lm As String = "djdate,type,djcode,ckname,bmname,afname,note"
Tables("hccrkmx").AllowEdit = False

--  作者:hopestarxia
--  发布时间:2016/12/19 0:35:00
--  
谢谢老师的指点,这段时间有事息假了.