专家坐堂-请教，有关窗口Table中visible无效的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教，有关窗口Table中visible无效的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11727)

--  作者：baoxyang
--  发布时间：2011/8/9 14:37:00
--  请教，有关窗口Table中visible无效的问题

Table2是窗口“快递查询”中Normal类型的表名

Dim pds As New System.Data.DataSet
pds = CXmlToDataSet(ss)
Tables("快递查询_Table1").DataSource = pds.Tables(0)
If Tables("快递查询_Table1").Rows(0)("Status") = 1 Then
   Tables("快递查询_Table2").DataSource = pds.Tables(1)
   Tables("快递查询_Table2").visible = True
   Tables("快递查询_Table2").cols(2).visible = False
   Tables("快递查询_Table2").AutoSizeCol(Tables("快递查询_Table2").cols(0).name)
   Tables("快递查询_Table2").AutoSizeCol(Tables("快递查询_Table2").cols(1).name)
Else
   Tables("快递查询_Table2").visible = False
   e.Form.controls("textbox2").value = "没有查询结果!请检查订单号及快递名称是否正确?"
End If

请教，颜色标记的代码无效，查不出原因。请指点！谢谢！！

--  作者：狐狸爸爸
--  发布时间：2011/8/9 14:53:00
--

设置控件的Visble属性

http://www.foxtable.com/help/topics/1788.htm

--  作者：baoxyang
--  发布时间：2011/8/10 9:25:00
--

以下是引用baoxyang在2011-8-9 14:37:00的发言：

Table2是窗口“快递查询”中Normal类型的表名

Dim pds As New System.Data.DataSet
pds = CXmlToDataSet(ss)
Tables("快递查询_Table1").DataSource = pds.Tables(0)
If Tables("快递查询_Table1").Rows(0)("Status") = 1 Then
   Tables("快递查询_Table2").DataSource = pds.Tables(1)
   Tables("快递查询_Table2").visible = True
   Tables("快递查询_Table2").cols(2).visible = False
   Tables("快递查询_Table2").AutoSizeCol(Tables("快递查询_Table2").cols(0).name)
   Tables("快递查询_Table2").AutoSizeCol(Tables("快递查询_Table2").cols(1).name)
Else
   Tables("快递查询_Table2").visible = False
   e.Form.controls("textbox2").value = "没有查询结果!请检查订单号及快递名称是否正确?"
End If

请教，颜色标记的代码无效，查不出原因。请指点！谢谢！！

表名没有错呀。Tables("快递查询_Table2").visible = False
设置为什么无效呢？

试把Tables("快递查询_Table2").visible = False 改成 messagebox.show(Tables("快递查询_Table2").count)显示是正确的。是否新版对DataSource显示设置有问题呀

[此贴子已经被作者于2011-8-10 9:25:13编辑过]

--  作者：狐狸爸爸
--  发布时间：2011/8/10 9:28:00
--

这样：

e.form.Controls.("Table1").Visible = False

--  作者：baoxyang
--  发布时间：2011/8/10 9:35:00
--
谢谢了！有点浑了！！