请教2个小问题：谢谢

1、在“积分兑换明细”中的“兑换积分“大于”客户资料“的”剩余积分“将有提示，但系统却没有提示，什么回事？

2、在”储蓄积分“、”理财积分“和”兑换明细“中有操作后，客户资料里的”合计积分“和”兑换积分“应该响应发生变化，

    在我的系统中需要在客户资料里进行”列重置“操作才能有变化。怎么改进呢？

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

点击浏览该文件:管理项目0511.table

 如下

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

点击浏览该文件:管理项目0511.table

我希望在剩余积分<0的时候，把刚才输入的内容清零，怎么就错了呢？

Select Case e.DataCol.Name
    Case "积分", "数量"
        Dim dr1 As DataRow
        dr1 = DataTables("客户资料").Find("[客户名称] = \'" & e.DataRow("客户名称") & "\'")
       
        If dr1 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            DataTables("客户资料").DataCols("客户名称").RaiseDataColChanged(dr1)
           
            If  dr1("剩余积分") < 0 Then  MessageBox.Show("积分不足","提示")
            e.DataRow("礼品名称") = Nothing
            e.DataRow("积分") =0
            e.DataRow("数量") =0
           
        End If
End Select

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

点击浏览该文件:管理项目510.table

Select Case e.DataCol.Name
    Case "积分", "数量"
        Dim dr1 As DataRow
        dr1 = DataTables("客户资料").Find("[客户名称] = \'" & e.DataRow("客户名称") & "\'")
        If dr1 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            DataTables("客户资料").DataCols("客户名称").RaiseDataColChanged(dr1)
            If  dr1("剩余积分") < 0 Then
                MessageBox.Show("积分不足","提示")
                e.DataRow("礼品名称") = Nothing
                e.DataRow("积分") =0
                e.DataRow("数量") =0
            End If
        End If
End Select

谢谢老师耐心指导，现在还请教问题如下：

1、当“理财积分”有新的“产品代码”出现，能自动出现在“理财积分系数"的"产品代码"中,而不是手工输入.

2、“储蓄积分”中有部分记录"日均余额“为小数，怎么得不到”储蓄积分”？

3、“客户资料”“储蓄积分”和“理财积分”中的证件号码格式不相同，从而不能得到客户的“合计积分”，

目前的“合计积分”只包括“储蓄积分”，“理财积分”因为“证件号码”格式不同，没有累计在内，有好办法解决么？

谢谢

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

点击浏览该文件:管理项目510 (1).table

顶顶

Select Case e.DataCol.name
    Case  "产品代码","积分系数"
        If e.DataRow.Isnull("产品代码")=False Then
            Dim dr As DataRow = DataTables("理财积分系数").Find("产品代码=\'" & e.DataRow("产品代码") & "\'")
            If dr Is Nothing Then
                dr = DataTables("理财积分系数").addnew
                dr("产品代码")=e.DataRow("产品代码")
                \'dr("积分系数")=e.DataRow("积分系数")
          \'  Else
            \'  dr("产品代码")=e.DataRow("产品代码")
                \'dr("积分系数")=e.DataRow("积分系数")

            End If
        End If
End Select

当dr Is Nothing  为真  说明在“理财积分系数”表中没有新的产品代码 ，则做产品代码复制操作。为假，说明‘理财积分系数’表中有产品代码了，什么还要做赋值操作呢？

 回复8楼，代码不是注释掉了么？你删除掉即可。

 http://www.foxtable.com/help/topics/0215.htm

8楼是我添加的注释，应该符合逻辑吧。

下面，我希望：

1、在“客户资料”，“储蓄积分”和“理财积分”中有重名的客户找出来，放在“重名客户表中，只包括“客户名称”和“证件代码”两列。

2、在“重名客户”表中修改客户名称后，依据不同的“证件代码”对应的“客户名称”替换原先的重名客户，这样确保客户名称不重名。

谢谢