- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口组合框除去重复 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=486)
-- 发布时间：2008/9/14 9:37:00
-- [求助]窗口组合框除去重复
窗口组合框乡名除去重复并且乡名选定后在村名框只出现该乡所对应的村。代码或函数放在哪里？
此主题相关图片如下：枯.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:退耕还林管理系统.rar |
-- 发布时间：2008/9/14 10:06:00
--
请参考：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:退耕还林管理系统.rar |
不过有一个问题，第一次选择乡名的时候，下拉列表的高度太小，第二次才正常。
这个问题下次更新不会有。
-- 发布时间：2008/9/14 10:13:00
--
老六打开你做的例子时，产生以下错误，什么原因？
此主题相关图片如下：tp2.jpg
-- 发布时间：2008/9/14 10:28:00
--
因为一个bug，那个文件搂主才能用，你可以用这个：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:退耕还林管理系统.rar |
-- 发布时间：2008/9/14 10:38:00
--
谢谢！
-- 发布时间：2008/9/14 10:48:00
--
二楼的文件我也打不开出现三楼的情况只好下载四楼的
-- 发布时间：2008/9/14 10:56:00
--
也下载了在看怎么样写代码或函数或属性设置...(打开的问题,我将1楼楼主的图标复回去.能打得开.)
-- 发布时间：2008/9/14 11:08:00
--
经对比取消了窗口属性中的乡名和村名的列表项目村名事件增加了代码
If e.Form.Controls("ComboBox2").Value Is Nothing Then
Return
Else
Dim Val As String = e.Form.Controls("ComboBox2").Value
Dim lst As List(Of String)
lst = DataTables("单位").GetUniqueValues("[乡名] = \'" & val & "\'","村名")
With e.Form.Controls("ComboBox3").Items
.Clear
.AddRange(lst.ToArray())
End With
End If
是不是这样？
-- 发布时间：2008/9/14 11:20:00
--
正是
-- 发布时间：2008/9/14 11:24:00
--
谢谢！过节也不休息，佩服！