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

参考代码

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("显示列")

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

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

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

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()