此主题相关图片如下:11.jpg
老师请问下,我想实现双击窗口中的一个table 表 打开一个登记窗口,想把双击行的模号写入登记窗口中的模具名称中,这个如何实现
以下是单元格双击事件的代码,只能打开窗口 无法赋值内容
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