以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个重大BUG  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138534)

--  作者:rjh4078
--  发布时间:2019/8/2 21:01:00
--  一个重大BUG
之前版本一直使用良好 。用83版本发布的程序出现一个问题:下拉窗口 只能在第一次打开时能返回值,再新增一行 点击没有任何反应。

dropform的doubleclick代码如下

Dim tbl As Table
tbl=e.Form.Controls("Table1").Table
If tbl.Current IsNot Nothing   Then
messagebox.show("1")
    e.Form.DropDownBox.Value = tbl.Current("物料编号")
End If
e.Form.DropDownBox.CloseDropDown()

1每次都能弹出来,但是在引用的表里只能第一次把物料编号带过来了 后面再新增的行通过这个下拉窗口无法引用。

--  作者:有点蓝
--  发布时间:2019/8/2 21:22:00
--  
我测试没有问题,上传实例说明。
--  作者:rjh4078
--  发布时间:2019/8/3 15:07:00
--  
方便远程吗 我单独做例子无法重现 但是在我的项目里就会出现 
--  作者:rjh4078
--  发布时间:2019/8/3 15:19:00
--  
我找到了之前的版本发布的程序  使用正常 新版本发布的就会这样
--  作者:rjh4078
--  发布时间:2019/8/3 15:41:00
--  

我改成
Dim tbl As Table
tbl=e.Form.Controls("Table1").Table
If tbl.Current IsNot Nothing   Then
messagebox.show("1")
    e.Form.DropDownBox.Value = tbl.Current("物料编号")
e.row(e.col.name)=tbl.Current("物料编号")
End If
e.Form.DropDownBox.CloseDropDown()
也没卵用  绝对是BUG  这个项目都用了几年了 找了个其他项目 用新版本发布以后也是这样 赶快找原因吧  这下搞大大发了 所有的表单只能新增一行 

--  作者:有点蓝
--  发布时间:2019/8/3 15:55:00
--  
周一联系客服看看。

如果新建项目没有问题,可以在旧项目新建一个窗口替换之前的窗口试试。注意不要通过导入模板的方式还原窗口

--  作者:rjh4078
--  发布时间:2019/8/3 18:02:00
--  
试过了 不行 现在暂时用comlist代替一下