表事件：
PrepareEdit:::::::::::::
Dim s,s1,s2 As String
Dim mdm As New MultiDataMap
For i As Integer = 0 To DataTables("来源表").GetComboListString("取值列").split("|").length -1
s = getPY(DataTables("来源表").GetComboListString("取值列","取值列 is not null","取值列"),True).split("|")(i)
s1 = DataTables("来源表").GetComboListString("取值列").split("|")(i)
s2 = s2 & "" & s & "" & "-" & "" & s1 & "" & vbCrLf
Next
Tables("目的表").Cols("要生成的列表项目的列").ComboList = s2
AfterEdit:::::::::::目的表 该列属性中将允许直接输入设为True
If e.Col.Name = "要生成的列表项目的列" And e.Row("要生成的列表项目的列").contains("-") Then
e.Row("要生成的列表项目的列") = e.Row("要生成的列表项目的列").split("-")(1)
End If
[此贴子已经被作者于2011-4-28 20:15:03编辑过]
加好友 
发短信
Post By：2011/4/28 12:49:00 [显示全部帖子]
虽然复杂了些但有点意思···· 其实只要在表事件中就可以搞定的。等下我来弄一个。
此主题相关图片如下：lbxm0.gif