DataColChanged事件
If Forms("材料录入").opened Then
Dim flag As Boolean = True
For Each dr As DataRow In e.DataTable.DataRows
For Each dc As DataCol In e.DataTable.DataCols
If dr.IsNull(dc.Name) = False Then
flag = False
Exit For
End If
Next
Next
Forms("材料录入").Controls("ComboBox1").Enabled = flag
Forms("材料录入").Controls("ComboBox2").Enabled = flag
End If