主题：[求助]根据客户名称，自动出现身份证号码或者出现下拉列表共选择

 prepareEdit事件，加入代码

Select Case e.Col.name
    Case  "身份证号码"
        Dim filter As String = "客户名称 = '" & e.Row("客户名称") & "'  "
        Dim str As String = DataTables("客户资料").GetComboListString("身份证号码", filter)
       
        If str.Split("|").Length > 1 Then
            e.Table.Cols("身份证号码").ComboList = str
        Else
            e.Table.Cols("身份证号码").ComboList = Nothing
        End If
End Select

 回复5楼不需要去到，也可以改成

Select Case e.DataCol.name
    Case  "客户名称"
        Dim filter As String = "客户名称 = '" & e.DataRow("客户名称") & "'  "
        Dim fdr As DataRow = DataTables("客户资料").find(filter)
              
        If fdr IsNot Nothing Then
            e.DataRow("身份证号码") = fdr("身份证号码")
        Else
            e.DataRow("身份证号码") = Nothing
        End If      
End Select