Dim part As String
For Each c As Col In e.Table.Cols
If c.Name.contains("设计") Then
part=e.Row("模号")
Forms("任务发布").open
Dim Endck As WinForm.RadioButton = Forms("任务发布").Controls("endck") \'完成登记
Dim sbstar As WinForm.ComboBox = Forms("任务发布").Controls("sbstar") \'发布任务
Dim task As WinForm.ComboBox = Forms("任务发布").Controls("task") \'任务选项
Dim nm As WinForm.ComboBox = Forms("任务发布").Controls("nm") \'模具名称
Endck.Checked=True
task.value="设计"
nm.value=part
Exit For
End If
Next