If tb.AllowEdit Then
If tb.AllowEdit Then
Dim lms() As String = {"", "品质员", "料号", "IQCM收货数量", "IQCM抽检数", "IQCM不良数量", "IQCM不良描述", "IQCM备注", "检验结果" }
For Each c As Col In tb.cols
\'MessageBox.Show("c.name|" & c.Name & "|")
If Array.IndexOf(lms, c.Name) > 0 Then
MessageBox.Show(c.Name) ‘如果前面不加空白值,品质员不出来。
c.allowedit = True
Else
c.allowedit = False
End If
Next
End If
End If