主题：记录窗口数据与Table不一致

打开窗口1

Tables("窗口1_Table05").第一列显示1，RecordGrid1的第一列也显示1，

当我把RecordGrid1的第一列数据修改为2后，Tables("窗口1_Table05").第一列的数据仍旧是1.

然后我把Tables("窗口1_Table05").第一列数据改为9，RecordGrid1的第一列也显示9，Tables("窗口1_Table05").第一列数据显示1.

表事件代码有意写成固定值。

实际代码：

Dim dt As DataTable = e.DataTable
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name '020402/锯削/棒料  
    Case "工步代码", "零件数量", "直径", "直径高度", "工时定额", "加工单价"
        If dr("工步代码") = "020402" Then
            For Each c As DataCol In dt.DataCols
                If c.name <> "工艺单编号" AndAlso c.name <> "工步代码" AndAlso c.name <> "零件数量" AndAlso c.name <> "直径" AndAlso c.name <> "直径高度" AndAlso c.name <> "工时定额"AndAlso c.name <> "加工单价" Then
                    dr(c) = Nothing
                End If
            Next
            Dim dr1 As DataRow = DataTables("工时定额").Find("工步代码='" & e.DataRow("工步代码") & "' and 最小直径<='" & e.DataRow("直径") & "' and 最大直径>'" & e.DataRow("直径") & "'")
            If dr1 IsNot Nothing Then
                If dr.IsNull("直径") Then
                    dr("工时定额") = Nothing
                Else
                    dr("工时定额") = dr1("工时定额")
                    dr("加工单价") = dr1("加工单价")
                End If
            Else
                If dr.IsNull("直径") Then
                    dr("工时定额") = Nothing
                Else
                    MessageBox.Show("钻孔直径范围1mm-200mm，输入值不在设定范围！")
                    dr("直径") = Nothing
                    dr("工时定额") = Nothing
                End If
            End If
            dr("加工阶段") = "2"
            dr("工序") = "锯削"
            dr("工步") = "棒料"
            dr("估工") = dr("工时定额") * dr("零件数量")
            dr("理论加工费") = dr("估工") * dr("加工单价")
            dr("工步内容") = "锯" & dr("工步") & "，尺寸φ" & dr("直径") & "×" & dr("直径高度") & "，零件数量" & dr("零件数量") & "件。"
        End If
End Select

好的