- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口数据自动输入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186441)
-- 发布时间：2023/5/3 16:24:00
-- 窗口数据自动输入问题
此主题相关图片如下：jxf_2023-05-03_16-20-37.png
程序如上，为什么双击之后窗口可以正常打开，但是数据无法加载！
-- 发布时间：2023/5/3 16:27:00
--
什么类型的窗口？控件有没有绑定列？
-- 发布时间：2023/5/3 16:28:00
--
控件没有绑定列，独立窗口！
-- 发布时间：2023/5/3 17:47:00
--
加上e.cancel=true
-- 发布时间：2023/5/4 8:14:00
--
此主题相关图片如下：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后，还是一样，窗口可以打开，但是数据无法加载。 |
-- 发布时间：2023/5/4 8:36:00
--
我测试没有问题，请上传实例说明
-- 发布时间：2023/5/4 8:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
您测试一下，我这边一直不成功！
-- 发布时间：2023/5/4 8:57:00
--
这个是模式窗口，不是独立窗口。模式窗口赋值的代码放到窗口afterload事件里
-- 发布时间：2023/5/4 10:35:00
--
收到，谢谢！