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

逻辑非常的清楚了。

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

现在 我基本理清了头绪！   

 

我的目的 是 客户档案表 - 最后进店日期，当前里程   这2项目必须全部更改 才可以  在历史进店记录里添加一行且引用 底盘号 最后进店日期 和 当前里程这3列！

 

1.由于可能出现的人工输入错误  如果只更改了 最后进店日期  和 当前里程中的一项 就点保存得花 就会弹出 对应的提示框！

 

2.提示框也有要求，例如：由于之前公里数输入错误的缘故，这次将其更改为正确数据（因此这次只变动了一项，会弹出提示框）,所以提示框最好设置成 yes 和 no选择  如果选择了yes  则保存，并在之前历史进店记录里 更新这一错误，而不是再增加一行。。

 

 

3.另外  编程时还要考虑到 更改其它 项目数据 点保存的时候不会触发上面的代码

 

4.还要考虑 新增行时 输入数据的特殊情况   

 

只是头绪理清后  发现太复杂了！

 

 

补充下  

老大 您的管理项目17 我看过了 有些异常 

 

1.新增数据时 历史进店记录窗口出现了数值  是什么个情况？  明明刚新增 怎么会有值 而且有时候是多行 

 

2.另外 新增 数据 保存的时候  会保存多行相同的数据  （貌似和没输底盘号有关，输入了底盘号后就不会出现这情况了）

 

3.又发现一个新情况 如果不输入底盘号 点一次保存 历史进店记录窗口会增加一行 无限增加

 

2，3应该没问题 可以通过设置 强制输入才能保存解决， 关键是1的情况很不解 能解释嘛？

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

 

 

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

点击浏览该文件:管理项目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()

15楼  还是有点bug   如果只修改里程数  则不会跳出提示框！  只修改日期 会跳

 

                            如果 有条记录 都修改了 里程和日期 保存后 如果再更改里程 再保存  则在历史进店记录里 继续增加  。。

 

 

太晚了 明天研究吧！ 多谢老大了~

 

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

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