共12 条记录, 每页显示 10 条, 页签: [1] [2]

标题：[求助]窗口组合框除去重复

1楼

易服发表于：2008/9/14 9:37:00

窗口组合框乡名除去重复并且乡名选定后在村名框只出现该乡所对应的村。代码或函数放在哪里？

图片点击可在新窗口打开查看

此主题相关图片如下：枯.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:退耕还林管理系统.rar

2楼

贺老六 发表于：2008/9/14 10:06:00

请参考：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:退耕还林管理系统.rar

不过有一个问题，第一次选择乡名的时候，下拉列表的高度太小，第二次才正常。
这个问题下次更新不会有。

3楼

kylin 发表于：2008/9/14 10:13:00

老六打开你做的例子时，产生以下错误，什么原因？

此主题相关图片如下：tp2.jpg

4楼

贺老六 发表于：2008/9/14 10:28:00

因为一个bug，那个文件搂主才能用，你可以用这个：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:退耕还林管理系统.rar

5楼

kylin 发表于：2008/9/14 10:38:00

谢谢！

6楼

易服发表于：2008/9/14 10:48:00

二楼的文件我也打不开出现三楼的情况只好下载四楼的

7楼

gdtgl 发表于：2008/9/14 10:56:00

也下载了在看怎么样写代码或函数或属性设置...(打开的问题,我将1楼楼主的图标复回去.能打得开.)

8楼

易服发表于：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
     是不是这样？

9楼

贺老六 发表于：2008/9/14 11:20:00

正是

10楼

易服发表于：2008/9/14 11:24:00

谢谢！过节也不休息，佩服！

共12 条记录, 每页显示 10 条, 页签: [1] [2]