请教列表中选择数据调出修改窗口造表中某字段全修改的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

设计了几个窗口为：

“入库列表”：列出了当月入库明细；

“新增入库”：输入入库信息的窗口；

“入库修改”：修改入库记录的窗口；

目前出现如下问题：

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

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

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

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

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

此主题相关图片如下：qq图片20161202115714.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

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

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

'收集并填充字段内容

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

谢谢老师的指点,这段时间有事息假了.

主题：请教列表中选择数据调出修改窗口造表中某字段全修改的问题