主题：[求助]记录窗口如何隐藏没有值的列

执行这个代码可以隐藏

Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
    If r(1).tostring = Nothing Then
        r.visible = False
    Else
        r.visible = True
    End If
Next

代码你可以放到表A的CurrentChanged事件去。