主题：[求助]数值输入框值发生变化确认后表记录老是跑到第一行？（以解决）

在业务项目的订单管理窗口的订单编辑分页在尺码表选择第4条记录再点尺码修改按钮，出来尺码修改窗口。

当数值输入框值发生变化确认后表记录老是跑到第一行？

此主题相关图片如下：未命名.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理.zip

开发者：888 业务1：为空（用业务1登陆 只有业务1才能修改业务1的记录）

我把尺码表的所有表达式都删了（保留空列），问题还是一样呀！

理论上不可能出现这个问题的，因为数值框没有代码呀（要是设定值改变后自动保存表还有可能）。

出现这个问题如果是内部表还能用，但我是外部表，数值修改后外部源不会马上改变，得在保存表后才会修改。无法同步呀！！！！！！

占着沙发 等期待

老大这个方法治标不治本哦！还是变成保存第一行，无法保存当前行！（只是保存第一行后再跑回当前行）
现把尺码窗口 改为数据填充修改表 方法可行(当前行可以保存了，外部数据也就同步了，但保存后表的记录还是会跑去停在第一行，如要编辑下一环节就还要点当前行，烦呀！)
我还是比较喜欢用老方法，不知还有没法子？

还有保存确认按钮的如下（第一组代码要填充俩个框才能确认，所以就拆成了第二组想填充了哪个就修改哪个，没填充的也不会清空，可老是报错！）
With e.Form
    If .Controls("Label5").Text = "OK" AndAlso .Controls("Label6").Text = "OK"  Then
        Dim tr As Row = Tables("订单管理.订单色组.订单尺码").Current()
            tr("订单数量") = e.Form.Controls("NumericComboBox1").Value
            tr("规格_尺码") = e.Form.Controls("ComboBox1").Value
                tr.Save()
                    .Close()
    End If
End With

With e.Form
    If .Controls("Label5").Text = "OK" Then
        Dim tr As Row = Tables("订单管理.订单色组.订单尺码").Current()
            tr("订单数量") = e.Form.Controls("NumericComboBox1").Value
                tr.Save()
                    .Close()
    End If
    If .Controls("Label6").Text = "OK" Then
        Dim tr1 As Row = Tables("订单管理.订单色组.订单尺码").Current()
            tr1("规格_尺码") = e.Form.Controls("ComboBox1").Value
                tr1.Save()
                    .Close()
    End If
End With

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理.zip

此主题相关图片如下：未命名.jpg


此主题相关图片如下：未命名1.jpg

这组代码怎么改才不会报错？

With e.Form
    If .Controls("Label5").Text = "OK" Then
        Dim tr As Row = Tables("订单管理.订单色组.订单尺码").Current()
            tr("订单数量") = e.Form.Controls("NumericComboBox1").Value
                tr.Save()
                    .Close()
    End If
    If .Controls("Label6").Text = "OK" Then
        Dim tr1 As Row = Tables("订单管理.订单色组.订单尺码").Current()
            tr1("规格_尺码") = e.Form.Controls("ComboBox1").Value
                tr1.Save()
                    .Close()
    End If
End With

测试完全通过，感谢狐大！