[已解决]子窗体多值填充

zenkifox

打开我的窗体，我想输入完物品编码以后，在物品名称处自动填充这几种物品的相应名称，如何实现，理想的效果如下:

Henry D. Sy

2007打不开

tmtony

系统自带的多值不太好实现
你可在编码选择后，用代码split拆分有几个编码 ，然后从 物料表中取对应的名称，再填到 名称字段里。这样要多一个冗余字段来保存这个名称

yehf

tmtony 发表于 2011-10-18 12:28
系统自带的多值不太好实现
你可在编码选择后，用代码split拆分有几个编码 ，然后从 物料表中取对应的名称， ...

就是按这个思路做的一个例子

Henry D. Sy

一对多，两个表，多方表就可以自动填充！又避免数据冗余！

zhuyiwen

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. Private Sub 货品编码_AfterUpdate()
   
5.     Dim v As String
   
6.     If Not IsNull(货品编码.Value) Then
   
7.         v = Join(货品编码.Value, ",")
   
8.     End If
   
9.     Me.货品名称 = lookValue(v)
   
10. End Sub
    
11. 
    
12. Private Function lookValue(c As String) As String
    
13.     Dim sql As String
    
14.     If c <> "" Then
    
15.         sql = "SELECT 货品名称 FROM 货品表 WHERE 货品编码 IN(" & c & ")"
    
16.         Dim rs As ADODB.Recordset
    
17.         Set rs = CurrentProject.Connection.Execute(sql)
    
18.         lookValue = rs.GetString(, , ",", ",")
    
19.         rs.Close
    
20.         Set rs = Nothing
    
21.         If Len(lookValue) > 0 Then
    
22.             lookValue = Left(lookValue, Len(lookValue) - 1)
    
23.         End If
    
24.         Debug.Print lookValue
    
25.     End If
    
26. End Function

复制代码

技术要点：
1、Join(货品编码.Value, ",") 这时的 Value 是一个数组
2、rs.GetString(, , ",", ",") 将记录集转换为字符串

zenkifox

zhuyiwen 发表于 2011-10-18 20:08
技术要点：
1、Join(货品编码.Value, ",") 这时的 Value 是一个数组
2、rs.GetString(, , ",", ",")  ...

我按照此思路，放在了我的工程上，怎么提示错误，请帮我看看

yehf

需要引用ADO

cjnt007

zhuyiwen 发表于 2011-10-18 20:08
技术要点：
1、Join(货品编码.Value, ",") 这时的 Value 是一个数组
2、rs.GetString(, , ",", ",")  ...

好思路，学习了

tmtony

zhuyiwen 发表于 2011-10-18 20:08
技术要点：
1、Join(货品编码.Value, ",") 这时的 Value 是一个数组
2、rs.GetString(, , ",", ",")  ...

Very good,好点子