更改的值没有保存住 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 更改的值没有保存住

共有2868人关注过本帖树形打印复制链接主题：更改的值没有保存住

lfz123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

更改的值没有保存住 发帖心情

Post By：2019/7/2 14:23:00 [显示全部帖子]

我在DropBox控件的ValueChanged事件中写了如下代码:我也点了保存按钮,也看到正确的结果出来了,可我退出入库单录入在进去的时候发现还是原来未更改前结果

ValueChanged事件代码:

e.Sender.WriteValue()

For Each dr As DataRow In DataTables("入库单录入_table1").DataRows

dr("供应商简称") = e.Sender.Text

保存按钮代码:

Tables("入库单列表").Current.Save()

Tables("入库单录入_table1").Save()

Tables("入库单录入_table1")的设置如下:

此主题相关图片如下：窗口表的设置.png

lfz123

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（狐狸爸爸）我测试没有问题，你做个简单的小例... 发帖心情

Post By：2019/7/2 17:45:00 [显示全部帖子]

老师应该是我这个上一张下一张按钮切换的问题代码如下,他依然加载的是前一张的明细

With Tables("入库单列表")

.Position = .Position - 1

DataTables("入库单录入_table1").LoadFilter = "入库编号 = '"& Tables("入库单列表").Current("入库编号") & "'"

DataTables("入库单录入_table1").Load()

End With

我在入库单列表的currentchanged事件里面的代码也一样错乱了

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return

Else

If forms("入库单录入").opened() Then

DataTables("入库单录入_table1").LoadFilter = "入库编号 = '"& e.Table.Current("入库编号") & "'"

DataTables("入库单录入_table1").Load()

End If

'有选定行时执行的代码

End If

[此贴子已经被作者于2019/7/2 17:49:39编辑过]

lfz123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点蓝）去掉第一段的加载代码：With Tables(... 发帖心情

Post By：2019/7/3 9:58:00 [显示全部帖子]

按照您的方法可以了,但是有一点效果没有达到,就是我更改文本框的值,就能直接改变入库明细的对应值,但我切换上下张,就显示是前一张的文本框的值了

e.Sender.WriteValue()

'For Each dr As DataRow In DataTables("入库单录入_table1").datarows

'dr("入库单号") = e.Sender.Text

'Next

[此贴子已经被作者于2019/7/3 9:58:48编辑过]

下一主题 >> << 上一主题

主题：更改的值没有保存住