主题：[求助]请教客户档案信息窗口 按钮的一段代码！

Dim r As Row = Tables("客户档案").Current
Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号 = '" & r("底盘号") & "'")
If dr IsNot Nothing Then
    dr("当前里程") = r("当前里程")
    dr("进店时间") = r("最后进店日期")
    dr.Save()
End If
r.Save()

Dim r As Row = Tables("客户档案").Current Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号 = '" & r("底盘号") & "'") If dr IS Nothing Then    dr = DataTables("历史进店记录").AddNew()    dr("底盘号") = r("底盘号") End If dr("当前里程") = r("当前里程") dr("进店时间") = r("最后进店日期") dr.Save() r.Save()

这个问题：

发现客户档案其它信息有错误 然后去更正了 此客户并没有来店 也就是 最后来店日期和里程没变化 你这个代码 还是会 向历史进店记录添加数据的  

 

你可以自判断一下输入了来店日期和里程才添加行。

 

 

7楼的代码，没有下面这个问题：

第二个就是如果是新客户来店 我填写了新的底盘号(底盘号 的确是每个客户唯一标识) 这段代码也识别不出这个客户 也没法记录这次信息了

 

 

Dim r As Row = Tables("客户档案").Current
If r.Isnull("最后进店日期") = False
    Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号 = '" & r("底盘号") & "'")
    If dr Is Nothing Then
        dr = DataTables("历史进店记录").AddNew()
        dr("底盘号") = r("底盘号")
    End If
    dr("当前里程") = r("当前里程")
    dr("进店时间") = r("最后进店日期")
    dr.Save()
End If
r.Save()

Dim r As Row = Tables("客户档案").Current
If r.Isnull("最后进店日期") = False AndAlso r.Isnull("当前里程") = False
    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
End If
r.Save() 

保存在历史进店记录表新增加的行。

有没有必要取决于你，你才是真正的开发者的，加上及时保存，不加上就和平时一样，要单击菜单中的保存按钮才会保存，

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

点击浏览该文件:扬州华泰内控系统.rar