[求助]动态设置记录窗口的列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Table.Current Is Nothing Then Return
Dim rgd6 As WinForm.RecordGrid = e.Form.Controls("RecordGrid6")
rgd6.Table = e.Table
If e.Table.Current("审判程序") = "一审"
rgd6.Columns = "案号|当事人|承办人|书记员|结案日期|归档_是否归档|二审上诉_是否上诉|二审上诉_上诉提醒"
Else
rgd6.Columns = "案号|当事人|承办人|书记员|结案日期|归档_是否归档"
End If
rgd6.Build() '重新生成记录窗口

[此贴子已经被作者于2017/8/24 15:29:55编辑过]

主题：[求助]动态设置记录窗口的列