主题：研究了一早上！修改保存按钮还有些小问题！

1、问题一个一个提，不要总是一大堆，这是你在设计系统，不是人家设计。

2、没有怎么看懂你的逻辑，瞎蒙一下：

Dim r As Row = Tables("客户档案").Current
Dim lc As Single = e.Form.Controls("lc").Text
Dim rq As Date = e.Form.Controls("rq").Text
Dim xz As DialogResult
Dim yz As DialogResult
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
    xz = MessageBox.Show("当前里程 未更改!确定不填写吗?", "提示", MessageBoxButtons.yesno, MessageBoxIcon.Question)
    If xz = DialogResult.yes Then
        r.Save()
        e.Form.Controls("rq").Text = r("最后进店日期")
    End If
    Return
End If
If lc <> r("当前里程") AndAlso rq = r("最后进店日期") Then
    yz = MessageBox.Show("最后进店日期 未更改!确定不填写吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If yz = DialogResult.yes Then
        r.Save()
        e.Form.Controls("lc").Text = r("当前里程")
    End If
    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
End If

r.Save()
e.Form.Controls("rq").Text = r("最后进店日期")
e.Form.Controls("lc").Text = r("当前里程")

在表的CurrentChanged事件加上代码：

With Forms("客户档案信息")
    If .Opened
        Dim lc As WinForm.Label = .Controls("lc")
        Dim rq As WinForm.Label = .Controls("rq")
        rq.text = Tables("客户档案").Current("最后进店日期")
        lc.text = Tables("客户档案").Current("当前里程")
    End If
End With

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

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

只能用模式窗口，窗口加上上一行、下一行、第一行、最末行的按钮。

要筛选的时候关闭窗口。

你可以直接用代码打开：

if 条件符合 then

    Syscmd.Filter.Advanced()

end if