主题：关于记录窗口绑定的列显示和隐藏的问题

Dim RecordGrid1 As WinForm.RecordGrid
RecordGrid1 = e.Form.CreateControl("lable1", ControlTypeEnum.RecordGrid)

If e.Table.current("下料_气割") = True Then

RecordGrid1.Table = Tables("表A") '绑定到表A
RecordGrid1.Columns = "下料_板长|下料_板宽|下料_穿孔数"

RecordGrid1.Build() '生成记录窗口
RecordGrid1.SetBounds(220,280,150,100) '指定位置和尺寸
e.Form.AddControl(RecordGrid1)

End If

 
提示见附件

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

先看一看：http://www.foxtable.com/webhelp/topics/0604.htm，不同实际有不同的e参数，控件是没有e.Table这种用法的，改为Tables("xx表").current("下料_气割")

谢谢 IF语句可以了，再请问下，关闭某一个记录窗口代码怎么写？

 

下面是帮助里的代码，但我想只关闭RecordGrid1，RecordGrid2和3保留，

 

 

 

Tables("表A").CloseRecordGrid()

主表只会有一个记录窗口，如果是记录窗口控件，无法关闭，可以隐藏控件：http://www.foxtable.com/webhelp/topics/0715.htm

最终考虑了，决定使用一下代码，但条件不执行，没反应，也不报错，请帮看看，谢谢

 

Dim RecordGrid1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

Tables("表A").Cols("下料_穿孔数").ShortCaption = "穿孔数" ' 指定缩写
Tables("表A").Cols("下料_板长").ShortCaption = "板长" ' 指定缩写
Tables("表A").Cols("下料_板宽").ShortCaption = "板宽" ' 指定缩写
If Tables("表A").current("下料_气割")= True Then

Tables("表A").Cols("下料_穿孔数").ShowInRecordGrid = True

Else

Tables("表A").Cols("下料_穿孔数").ShowInRecordGrid = False
End If

RecordGrid1.Table = Tables("表A") '绑定到表A

RecordGrid1.Columns = "下料_板长|下料_板宽|下料_穿孔数"

RecordGrid1.Build() '生成记录窗口

去掉：RecordGrid1.Columns = "下料_板长|下料_板宽|下料_穿孔数"