- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81163)
-- 发布时间：2016/2/19 17:05:00
-- [求助]
老师，又来了。
-- 发布时间：2016/2/19 18:02:00
--
试试 行不行
\'显示列
For Each c As Col In Args(0).Cols
c.Visible = Args(1).Contains(c.name & ",")
Next
\'列宽度及显示位置
Dim i As Integer = 0
Dim ColName As String
Dim ColWidth As Integer
Dim Vals As New List(Of String())
Vals.AddRange(Args(1))
For i=0 To Vals.Count-1
ColName = Vals(i).Split(",")(0)\'取得列名称
ColWidth = CInt(Vals(i).Split(",")(1)) \'取得宽度字符转换为数值
MessageBox.Show(ColName)
MessageBox.Show(ColWidth)
If Args(1).Col.contain(ColName)=True Then \'是否需要判定下有没有这列
Args(0).Cols(ColName).Move(i) \'移动位置
Args(0).Cols(ColName).Width = ColWidth\'设置宽度
End If
Next
老师,上面的内部函数是借来的,他是针对内部表的,我要的是外部数据表.
下面是按钮代码.
Dim tj As String = "Select * F rom {统计}"
Dim c As String = "商品名称,100"
Tables("窗口1_Table1").Fill(tj,False) \'加载Table
Functions.Execute("DataList",Tables("窗口1_Table1"),c) \'显示列表
-- 发布时间：2016/2/19 18:14:00
--
此主题相关图片如下：图像 1.png
-- 发布时间：2016/2/19 18:27:00
--
试试 行不行
\'显示列
For Each c As Col In Args(0).Cols
c.Visible = Args(1).Contains(c.name & ",")
Next
\'列宽度及显示位置
Dim i As Integer = 0
Dim ColName As String
Dim ColWidth As Integer
Dim Vals As New List(Of String)
Vals.Add(Args(1))
For i=0 To Vals.Count-1
MessageBox.Show(Vals(i))
ColName = Vals(i).Split(",")(0)\'取得列名称
ColWidth = CInt(Vals(i).Split(",")(1)) \'取得宽度字符转换为数值
MessageBox.Show(ColName)
MessageBox.Show(ColWidth)
If Args(1).Cols.contain(ColName)=True Then \'是否需要判定下有没有这列
Args(0).Cols(ColName).Move(i) \'移动位置
Args(0).Cols(ColName).Width = ColWidth\'设置宽度
End If
Next
老师,上面的内部函数是借来的,他是针对内部表的,我要的是外部数据表.
下面是按钮代码.
Dim tj As String = "Select * F rom {统计}"
Dim c As String = "商品名称,100"
Tables("窗口1_Table1").Fill(tj,False) \'加载Table
Functions.Execute("DataList",Tables("窗口1_Table1"),c) \'显示列表
[此贴子已经被作者于2016/2/19 18:40:53编辑过]
-- 发布时间：2016/2/19 19:29:00
--
老师，有已下报错
此主题相关图片如下：图像 4.png
此主题相关图片如下：图像 3.png
-- 发布时间：2016/2/19 20:31:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632
f
orm 空格去掉
If Args(1).Cols.contain(ColName)=True Then \'是否需要判定下有没有这列
[此贴子已经被作者于2016/2/19 20:34:03编辑过]
-- 发布时间：2016/2/19 21:11:00
--
老师，还是不行
此主题相关图片如下：图像 5.png
-- 发布时间：2016/2/19 21:12:00
--
要不你上个例子 给你看下
-- 发布时间：2016/2/20 1:25:00
--
上传实例说明情况，说明意图。
-- 发布时间：2016/2/21 13:16:00
--
以下是引用江南小城在2016/2/19 21:11:00的发言：
此主题相关图片如下：图像 5.png
老师，还是不行
此主题相关图片如下：图像 5.png| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模糊查询.table |