此主题相关图片如下：jxf_2023-05-04_08-11-02.png
‘单元格双击代码如下，去掉if语句后，打开窗口还是一样，但是关闭窗口的时候报错
Dim id As String = e.Row("_Identify")
Dim rq As Date = e.Row("日期")
Dim bm As String = e.Row("部门")
Dim lqry As String = e.Row("员工")
Dim cppc As String = e.Row("产品批次")
Dim cpbh As String = e.Row("产品编号")
Dim gxap As String = e.Row("加工工序")
Dim lqsl As Integer = e.Row("领取数量")
e.cancel = true
Forms("任务修改").open()
If Forms("任务修改").Opened Then
Forms("任务修改").Controls("id").Text = id
Forms("任务修改").Controls("日期").Value = rq
Forms("任务修改").Controls("接收部门").value = bm
Forms("任务修改").Controls("领取人员").value = lqry
Forms("任务修改").Controls("产品批次").value = cppc
Forms("任务修改").Controls("产品编号").value = cpbh
Forms("任务修改").Controls("工序安排").value = gxap
Forms("任务修改").Controls("领取数量").value = lqsl
End If
加上e.cancel=true后，还是一样，窗口可以打开，但是数据无法加载。 |
加好友 
发短信
Post By：2023/5/3 16:24:00 [显示全部帖子]
