就是这些代码在一个程序里对,在另一个报错,百思不得其解 Private Sub Hidecolumns() Dim c As Column For Each c In DataGrid1.Columns Select Case c.DataField Case "PartNo" c.Visible = True c.Caption = "工件号" Case "OprSeqNo" c.Visible = True c.Caption = "工序号" Case "PartPri" c.Visible = True c.Caption = "工件优先级" Case "MachType" c.Visible = True c.Caption = "机床类型" Case "BeginTime" c.Visible = True c.Caption = "开始时间" Case "EndTime" c.Visible = True c.Caption = "结束时间" Case "ProcessTime" c.Visible = True c.Caption = "最大加工时间" Case Else c.Visible = False End Select Next c End Sub
Private Sub Hidecolumns()
Dim c As Column
For Each c In DataGrid1.Columns
Select Case c.DataField
Case "PartNo"
c.Visible = True
c.Caption = "工件号"
Case "OprSeqNo"
c.Visible = True
c.Caption = "工序号"
Case "PartPri"
c.Visible = True
c.Caption = "工件优先级"
Case "MachType"
c.Visible = True
c.Caption = "机床类型"
Case "BeginTime"
c.Visible = True
c.Caption = "开始时间"
Case "EndTime"
c.Visible = True
c.Caption = "结束时间"
Case "ProcessTime"
c.Visible = True
c.Caption = "最大加工时间"
Case Else
c.Visible = False
End Select
Next c
End Sub