Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04102 s, 5 queries.