'绑定报表信息输入 public sub datagrid() ' dim i as integer with me.datagrid1 .columns(0).caption = "序号 " .columns(1).caption = "报表标题 " .columns(2).caption = "副标题 " .columns(3).caption = "托管部门 " .columns(4).caption = "划款信息 " '锁定datagrid数据,不能修改 for i = 0 to .columns.count - 1 .columns(i).locked = true next end with end sub