主题：[求助]遇到一个怪问题！请教~~~~~~~~~~~（已解决）

 
此主题相关图片如下：未命名.jpg

上面这个录入框  textbox1  为 当前里程
                      DateTimePicker2  为 进店时间

下面这段代码 在命令窗口测试：

Dim v As Double
v = Tables("售后客户录入_table1").Compute("max(公里数)")
Dim d As Date
d  = Tables("售后客户录入_table1").Compute("max(进店时间)")

output.show(forms("售后客户录入").controls("textbox1").text - v)
output.show((CDate(forms("售后客户录入").controls("DateTimePicker2").value) - d).totaldays)


If (forms("售后客户录入").controls("textbox1").text - v) < 7000 And (CDate(forms("售后客户录入").controls("DateTimePicker2").value) - d).totaldays <180 Then
    msgbox(1)
End If

结果为：28099
           548
msgbox(1)条件不符合，不跳出来


但是这段代码在录入窗口的保存里 点保存的时候 msgbox(1)  却跳出来了

此主题相关图片如下：未命名1.jpg





此主题相关图片如下：未命名2.jpg





附上 保存按钮click代码：

Dim tr As Row = Tables("售后客户档案_售后客户档案Table2").Current
Dim sr As String = "车系|底盘号|型号|建档日期|最后进店日期|里程"
For Each k As String In sr.split("|")
    If  tr.Isnull(k)= True Then
        MessageBox.Show("【" & k & "】"  & "未填写", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
        Return
    End If
Next

Dim g As New Filler
g.SourceTable = DataTables("售后客户档案_售后客户档案Table2") '指定数据来源
g.SourceCols = "底盘号,里程,最后进店日期" '指定数据来源列
g.DataTable = DataTables("售后客户录入_Table1")'指定数据接收表
g.DataCols = "底盘号,公里数,进店时间" '指定数据接收列
g.ExcludeExistValue =True
g.ExcludeNullValue =False
g.Distinct =True
g.Append =True
g.Fill()

If DataTables("售后客户录入_Table1").Compute("Count(进店时间)","进店时间 >= #"& date.today.addyears(-1)&"# and 底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").current("底盘号") & "'") >= 4 Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "A"
ElseIf DataTables("售后客户录入_Table1").Compute("Count(进店时间)","进店时间 >= #"& date.today.addyears(-1)&"# and 底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").current("底盘号") & "'") = 3 Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "B"
ElseIf DataTables("售后客户录入_Table1").Compute("Count(进店时间)","进店时间 >= #"& date.today.addyears(-1)&"# and 底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").current("底盘号") & "'") = 2 Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "C"
    'ElseIf DataTables("售后客户录入_Table1").Compute("Count(进店时间)","进店时间 >= #"& date.today.addyears(-1)&"# and 底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").current("底盘号") & "'") <= 1 Then
ElseIf DataTables("售后客户录入_Table1").Compute("Count(进店时间)","进店时间 >= #"& date.today.addyears(-2)&"# and 底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").current("底盘号") & "'") = 0 Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "无效档案"
Else
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "D"
End If

Dim v As Double
v = Tables("售后客户录入_table1").Compute("max(公里数)")
Dim d As Date
d  = Tables("售后客户录入_table1").Compute("max(进店时间)")

If (e.Form.controls("textbox1").text - v) < 7000 And (CDate(e.Form.controls("DateTimePicker2").value) - d).totaldays < 180 Then
    msgbox(1)
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "A"
End If

If Date.Today.addmonths(-3) < Tables("售后客户档案_售后客户档案Table2").current("建档日期") Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "A"
End If

If Tables("售后客户档案_售后客户档案Table2").current.IsNull("编号") = True Then
    Tables("售后客户档案_售后客户档案Table2").current("客户等级") = "E"
End If

Tables("售后客户档案_售后客户档案Table2").current.save()
Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
tbl.DataTable.Save()
DataTables("售后客户档案_售后客户档案Table1").load
Tables("售后客户档案_售后客户档案Table1").filter = "底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").Current("底盘号") & "'"
e.sender.Enabled = False


百思不得其解 ，请教~~~~~~~~~~~~~~

多谢  自己解决了！


Dim g As New Filler
g.SourceTable = DataTables("售后客户档案_售后客户档案Table2") '指定数据来源
g.SourceCols = "底盘号,里程,最后进店日期" '指定数据来源列
g.DataTable = DataTables("售后客户录入_Table1")'指定数据接收表
g.DataCols = "底盘号,公里数,进店时间" '指定数据接收列
g.ExcludeExistValue =True
g.ExcludeNullValue =False
g.Distinct =True
g.Append =True
g.Fill()

这个提前 fill了 导致后面的 等级判断不对  放到
Tables("售后客户档案_售后客户档案Table2").current.save()

下面 就OK了~~~~~~~~~~