主题：新增行必须先保存

如下图，这是怎么回事的；我在新增行的事件里面并没有代码呀？

此主题相关图片如下：save.jpg

 你写了什么代码？

 你DataColChanged事件写了什么代码？

Datachanged事件代码如下：

Dim tm As Date = e.DataRow("CreatTM")
Select Case e.DataCol.Name
    Case "PartID","PartKind","PartLittleKind","PartName","Partprocess","PartRemark"
        If tm.AddHours(4) < Date.now Then
            e.DataRow("UpdateLog") =e.DataRow("UpdateLog") & _UserActualName & " 在 " & format(Date.Now,"g") & " 将【" & e.DataCol.Caption & "】列由 '" & e.OldValue & "' 更新为 '" & e.NewValue & "'"  & vbcrlf
        End If
        E.DataRow("LastUpdateTM") = Date.NOW()
        E.DataRow("Lastupdater") = _UserActualName
End Select

 你表属性那里，所有的事件都写了什么代码？贴出来看看。

 如果用到了sqlgetvalue、sqlloadfile之类的东西，必须先保存。

在CurrentChange事件里有SQLloadimage代码；

        If Forms("PartProcessPIC").Opened Then '如果窗口已经打开
            Dim pbx As WinForm.PictureBox = Forms("PartProcessPIC").Controls("PictureBox1")
            If Tables("PartSpecLib").Current Is Nothing Then
                pbx.Image = Nothing
            Else
                pbx.Image = Tables("PartSpecLib").Current.DataRow.SQlLoadImage("PartPIC") '从后台提取照片并显示
            End If
        End If
        If Forms("CreatPartProcess").Opened Then '如果窗口已经打开
            Dim pbx1 As WinForm.PictureBox = Forms("CreatPartProcess").Controls("PictureBox1")
            If Tables("PartSpecLib").Current Is Nothing Then
                pbx1.Image = Nothing
            Else
                pbx1.Image = Tables("PartSpecLib").Current.DataRow.SQlLoadImage("PartPIC") '从后台提取照片并显示
            End If
        End If

搞定；谢谢老师