主题：TreeView

求一段代码，单击TreeView节点，表A显示“显示列”列里面的对应行里面多值字段所选择的对应列名的列，其它的隐藏

 

 

此主题相关图片如下：11.png

参考代码

 

Dim str As String = "第一列,第二列"
Dim t As Table = Tables("表A")
For Each c As Col In t.cols
    c.visible = False
Next
For Each s As String In str.split(",")
    t.cols(s).visible = True
Next

 

或者

 

Dim str As String = "第一列,第二列"
Dim t As Table = Tables("表A")
str = str.replace(",", "|100|") & "|100"
t.SetColVisibleWidth(str)

结果会显示指定的列，比如“第一列”“第二列”但是不会显示“显示列”里面指定的列

Dim str As String = "第一列,第二列"

 

替换成

 

Dim str As String = Tables("表A").Current("显示列")

谢谢，我在做一个计算方面的数据库，因为想把平时用到的计算公式都集中到一张表里面并自动计算，用很多表系统会庞大，请问表达式列一般是整列用同一个公式，能否每行都用不同的公式啊

不能的。建议使用代码处理

可是代码能解决每行用不同的公式吗，比如一楼的图片里，表里面再加一列“计算结果”，能否实现每行的计算结果=依据第一行的计算公式自动计算出结果

参考：http://www.foxtable.com/webhelp/scr/0625.htm

谢谢，感觉还是用显示公式，然后用电脑计算器来的简单些，再请教一个问题，以前用如下代码打印的时候，背景不会出现狐表标志的水印，这次升级后每次打印都会显示出来，影响视觉，能否取消设置，或者是该为我们公司的标志。

Dim tb  As WinForm.TabControl = e.Form.Controls("TabControl1")
 Dim pg  As WinForm.TabPage = tb.SelectedPage
 Dim doc  As PrintDoc = e.Form.GernatePrintDoc(pg)
 doc.Preview()

 

此主题相关图片如下：11.png

试用版到期了。购买正式版后就不会有水印了