主题：关于显示列的问题

Dim ck1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim tb As Table=Tables("订单主表.订单数量明细")
If ck1.Checked Then
    tb.Cols("T80").Visible=True
Else
    tb.Cols("T80").Visible=False
End If

这是关联表的显示列代码

比如说，订单主表和订数量单明细关联，关联列为“合同号”列，在窗口里有一个CheckBox，当我点击时只针对该合同号的指定列（比如说“T80”）起作用，点击别的合同号不起作用（比如说别的合同号是隐藏“T90”列）

请问这样可以吗？

Dim ck1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim tb As Table=Tables("订单主表.订单数量明细")
If ck1.Checked Then
    tb.Cols("T80").Visible=True
Else
    tb.Cols("T80").Visible=False
End If

那这个代码放哪？

感觉不像我要的

最好的是，比如说有两个订单分别为“1001101”，“1001102”各自无关，“1001101”隐藏的是T80列，“1001102”隐藏的是T90列，当点击“1001101”其隐藏的是“T80“的列，如果点击"1001102”订单时”T80“自动显示”T90“隐藏，