主题：[求助]请教2个问题

 这样写

 

Select Case e.DataCol.name
    Case  "客户名称","证件号码"
        Dim fdr As DataRow = DataTables("客户身份证号码").Find("客户名称 = '" & e.DataRow("客户名称") & "' and substring(证件号码,2,13) = '" & e.DataRow("证件号码").Substring(2,12) & "'")
              
        If fdr IsNot Nothing Then
            e.DataRow("证件号码") = fdr("证件号码")
        Else
            e.DataRow("证件号码") = e.DataRow("证件号码1")
           
        End If
End Select

还是不对

If e.DataRow("证件号码1") = "" Then
    e.DataRow("证件号码") = ""
Else
    Select Case e.DataCol.name
        Case  "客户名称","证件号码"
            Dim fdr As DataRow = DataTables("客户身份证号码").Find("客户名称 = '" & e.DataRow("客户名称") & "' and substring(证件号码,2,12) = '" & e.DataRow("证件号码1").Substring(3,12) & "'")
           
            If fdr IsNot Nothing Then
                e.DataRow("证件号码") = fdr("证件号码")
                ' Else
                '   e.DataRow("证件号码") = e.DataRow("证件号码1")
               
            End If
    End Select
End If

 

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

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

 测试了一下，用下面代码

 

Select Case e.DataCol.name
    Case  "客户名称","证件号码"
        Dim fdr As DataRow = DataTables("客户身份证号码").Find("客户名称 = '" & e.DataRow("客户名称") & "' and substring(证件号码,2,13) = '" & e.DataRow("证件号码1").Substring(2, 13) & "'")
              
        If fdr IsNot Nothing Then
            e.DataRow("证件号码") = fdr("证件号码")
        Else
            e.DataRow("证件号码") = e.DataRow("证件号码1")
        End If
End Select

测试发现：

1、遇到证件代码为空，程序中断，必须加入  If e.DataRow("证件号码1") = "" Then
                                                             e.DataRow("证件号码") = ""

 

2、对于substring(证件号码,2,13) = '" & e.DataRow("证件号码1").Substring(2, 13) & "'"  的理解

 

证件代码=342130198310015241    证件代码1=3.42130198310015E+17

 

上面的判断就是   “4213019831001”=“.421301983100”    是吗？

 

代码似乎应该改为  substring(证件号码,2,13) = '" & e.DataRow("证件号码1").Substring(3, 13) & "'"

 

但是不改居然也得到我想要的结果，这就不对了。

 1、需要加入一个判断。

 

 2、两个subString，起始位置不一样，一个是1，一个是0

在“积分兑换明细表”中，填入“客户名称”时，如果客户名称在“客户资料”表中没有重名的，则“证件账号”自动从“客户资料”中获取填入。

但是，如果有重名的，比如“徐建国”在客户资料中有2个不同的人，证件号码分别是“3.42122198302195E+17”和“3.40123197801154E+17”，

则在“积分兑换明细”表中，应该以下拉列表形式列出所有重名的“证件号码”，供操作者选择，怎么实现这项功能呢？

 对于重名的情况，在输入客户名的时候，应该加入备注，比如 徐建国(34212) 这样区分。

 哦，如果要以下拉形式，参考代码

 

Select Case e.DataCol.name
    Case  "客户名称","证件号码"
        Dim filter As String = "客户名称 = '" & e.DataRow("客户名称") & "' and substring(证件号码,2,13) = '" & e.DataRow("证件号码1").Substring(2, 13) & "'"
        Dim str As String = DataTables("客户身份证号码").GetComboListString("证件号码", filter)
              
        If str.Split("|") = 1 Then
            e.DataRow("证件号码") = str
        Else
            e.DataRow("证件号码") = "多个重复值"
            Tables(e.DataTable.Name).Cols("证件号码").ComboList = str
        End If
End Select

此主题相关图片如下：重名下拉列表代码.png

编译出错，是什么原因呢？

哦，写错了

 

Select Case e.DataCol.name
    Case  "客户名称","证件号码"
        Dim filter As String = "客户名称 = '" & e.DataRow("客户名称") & "' and substring(证件号码,2,13) = '" & e.DataRow("证件号码1").Substring(2, 13) & "'"
        Dim str As String = DataTables("客户身份证号码").GetComboListString("证件号码", filter)
              
        If str.Split("|").Length = 1 Then
            e.DataRow("证件号码") = str
        Else
            e.DataRow("证件号码") = "多个重复值"
            Tables(e.DataTable.Name).Cols("证件号码").ComboList = str
        End If
End Select