主题：请教这个代码有什么错误！

Dim k As Row = Tables("客户档案").Current
Dim cr As DataRow = DataTables("历史进店记录").Find("当前里程 = '" & k(当前里程) & "'")
Dim jr As DataRow = DataTables("历史进店记录").Find("进店时间 = '" & k(最后进店日期) & "'")

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

点击浏览该文件:管理项目17.rar

你看看窗口的afterLoad事件，就知道lc和rq的作用了。

逻辑非常的清楚了。

lc和rq两个标签保存初始的里程和日期，保存按钮用当前的里程和日期比较lc和rq里的保存的旧值，就知道是否两个都修改了。

我只管你窗口的代码，有些问题是你原来表事件中的代码没有删除导致的，既然要在窗口处理了，那么原来表事件中相关代码就应该删除。

 

 

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

点击浏览该文件:管理项目17.rar

 

 

再完善一下，底盘号、当前里程、最后进店日期都必须输入才处理：

 

Dim r As Row = Tables("客户档案").Current
Dim lc As Single = e.Form.Controls("lc").Text
Dim rq As Date = e.Form.Controls("rq").Text
If r.Isnull("最后进店日期") OrElse r.Isnull("当前里程") OrElse r.IsNull("底盘号") Then
    messagebox.show("请输入底盘号,最后进店日期和当前里程","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If lc <> r("当前里程") AndAlso rq <> r("最后进店日期")  Then
    Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号 = '" & r("底盘号") & "' And 当前里程 = " & r("当前里程") & " And 进店时间 = #" & r("最后进店日期") & "#")
    If dr Is Nothing Then
        dr = DataTables("历史进店记录").AddNew()
        dr("底盘号") = r("底盘号")
        dr("当前里程") = r("当前里程")
        dr("进店时间") = r("最后进店日期")
        dr.Save()
    End If
ElseIf (lc = r("当前里程") AndAlso rq <> r("最后进店日期")) OrElse (lc = r("当前里程") AndAlso rq <> r("最后进店日期")) Then
    Messagebox.show("最后进店日期和当前里程必须同时修改","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
r.Save()

 

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

点击浏览该文件:管理项目17.rar