请教老师们拉 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师们拉

共有4931人关注过本帖树形打印复制链接主题：请教老师们拉

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/13 23:54:00 [显示全部帖子]

行中其他单元格不显示是什么意思？显示空白？筛选以后的数据还需要再修改的吗？

Dim com As WinForm.ComboBox = e.Form.Controls("工序焊前准备")

Dim filter As String = "1=2"

For Each dc As DataCol In DataTables("工时核算").DataCols

If dc.IsString Then

filter += " or " & dc.Name & " Like '*" & com.Text & "*'"

Dim fdr As DataRow = DataTables("工时核算").Find(dc.Name & " like '*" & com.Text & "*'")

Tables("工时核算").Cols(dc.Name).Visible = (fdr IsNot Nothing)

End If

Tables("工时核算").Filter = filter

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/15 21:47:00 [显示全部帖子]

如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.zip

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/15 22:41:00 [显示全部帖子]

回复12楼，如下代码

Dim ls_name As new List(Of String)

For Each dr As DataRow In DataTables("工时核算").DataRows

For Each dc As DataCol In DataTables("工时核算").DataCols

If dc.Name.StartsWith("工序") Then

If dr.IsNull(dc.name) = False Then

For Each ary As String In dr(dc.name).split(",")

If ls_name.Contains(ary) = False Then

ls_name.Add(ary)

End If

e.Form.Controls("工序焊前准备").ComboList = String.Join("|", ls_name.ToArray)

主题：请教老师们拉