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

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

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

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

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

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

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

占着沙发 等期待

这种三级关联，是有这种问题，将修改按钮的代码改为：

With Tables("订单管理.订单色组.订单尺码")
    Dim idx As Integer = .Position
    If .Current IsNot Nothing Then
        If Tables("订单管理").Current("审核")=False
            If Tables("订单管理").Current("业务员") = _UserName Then
               Forms("尺码窗口").Open()
            Else
               MessageBox.show("限本人操作!")
            End If
        Else
            MessageBox.show("已审核!")
        End If
    Else
        MessageBox.show("没有记录!")
    End If
    .Position = idx
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

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

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

别用绑定，效果一样，就是多写了几行代码：

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

点击浏览该文件:名新针织有限公司.rar