[求助]在“积分兑换明细表”中,输入客户名称,自动出现身份证号码;或者同名时,身份证号码处出现下拉列表供选择。
功能如何实现?
Select Case e.DataCol.name
Case "客户名称","身份证号码"
Dim filter As String = "客户名称 = '" & e.DataRow("客户名称") & "' and 身份证号码 = '" & e.DataRow("身份证号码") & "'"
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
以上代码实现不了,请指教。谢谢