[原创]隐显列的设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]隐显列的设置

共有5144人关注过本帖树形打印复制链接主题：[原创]隐显列的设置

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/12 15:12:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/0572.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/12 15:47:00 [显示全部帖子]

查询后使用代控制不就行了，比如

Tables("订单").Cols("1").Visible = False

Tables("订单").Cols("4").Visible = true

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/12 17:09:00 [显示全部帖子]

判断单元格有没有数据参考：http://www.foxtable.com/webhelp/topics/0426.htm

http://www.foxtable.com/webhelp/topics/1470.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/13 13:32:00 [显示全部帖子]

If e.DataTable.DataRows.count > 0 andalso e.DataTable.DataRows(0).IsNull("订单款号") Then
MessageBox.Show("错误,第一行没有数据!")
Tables("订单主表.颜色尺码").Cols("尺码66").Visible = True
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/18 13:49:00 [显示全部帖子]

怎么做的“重新查询”？

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/18 13:59:00 [显示全部帖子]

代码？！！

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/18 14:17:00 [显示全部帖子]

说明第一行的"订单款号"不是空值

DataTables("颜色尺码").LoadFilter = "订单款号 = '" & ddkh.text & "'"
DataTables("颜色尺码").Load()

msgbox(DataTables("颜色尺码").DataRows(0).IsNull("订单款号"))

If DataTables("颜色尺码").DataRows.count > 0 AndAlso DataTables("颜色尺码").DataRows(0).IsNull("订单款号") Then
MessageBox.Show("错误,第一行没有数据!")
Tables("订单主表.颜色尺码").Cols("尺码66").Visible = True
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/18 17:21:00 [显示全部帖子]

Dim r As Row = Tables("颜色尺码").Current

If r IsNot Nothing Then

For Each c As Col In Tables("订单主表.颜色尺码").Cols

If c.name.StartsWith("尺码") Then

c.Visible = (r(c.name) > 0)

End If

下一主题 >> << 上一主题

主题：[原创]隐显列的设置