| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 去除重复值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33732) |
| -- 作者：7032175 -- 发布时间：2013/5/23 14:53:00 -- 去除重复值 在帮助文件中，《自定义录入界面之三》里面有这种情况要如何更改代码？ 下拉出来的窗口是以 客户ID 公司名称 地址 联系人 四种列显示，如果去除联系人列， 这样会出现很多相同的内容的 客户ID 公司名称 地址 列，如何把重复的内容去掉，显视一个就行。 |
| -- 作者：7032175 -- 发布时间：2013/5/23 15:44:00 -- 在帮助文件中，《自定义录入界面之三》里面有这种情况要如何更改代码？ 下拉出来的窗口是以 客户ID 公司名称 地址 联系人 四种列显示，如果去除联系人列,客户ID， 会在下拉窗口出现公司名称，地址二个列，但是会出现相同的而又重复的内容，因为联系人列,客户ID列，里面没有重复内容，要是想得到公司名称，地址二个列，但是不显视重复的内容只显示一个，要如何修改代码 |
| -- 作者：XYT -- 发布时间：2013/5/23 15:57:00 --
[此贴子已经被作者于2013-5-25 9:24:22编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/5/23 16:37:00 -- 用SQLTable: Select Distinct 客户ID,公司名称,地址, 联系人 From {表名} |
| -- 作者：7032175 -- 发布时间：2013/5/25 8:26:00 -- 在下拉窗口中 《作为下拉窗口显示后执行》 中的代码 Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("表内下拉窗口_Table1") If txt = "" Then tbl.Filter = "" Else txt = "\'*" & txt & "*\'" tbl.Filter = "计划号 Like " & txt & " Or 材质 Like " & txt \'& " Or 地址 Like " & txt & " Or 联系人 Like " & txt End If e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框 要是去除重复值 要改那一段代码 |