Foxtable(狐表)用户栏目专家坐堂 → 新版本的问题


  共有435人关注过本帖树形打印复制链接

主题:新版本的问题

帅哥哟,离线,有人找我吗?
foxtablefans
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
新版本的问题  发帖心情 Post By:2019/9/25 11:42:00 [只看该作者]

之前反映过在beforesavedatarow事件中下面的代码不执行的问题

if e.datarow.locked=false then
e.datarow.locked=true

endif

现在发现过程是这样的 e.datarow里修改的内容能保存 但是locked没有保存
回到0908版本正常
比如 
e.datarow(“时间”)=date.now
if e.datarow.locked=false then
e.datarow.locked=true

endif
时间更新了 但是locked没更新


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46481 积分:244703 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/9/25 11:50:00 [只看该作者]

我测试没有问题。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目131.table



 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefans
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
  发帖心情 Post By:2019/9/25 12:01:00 [只看该作者]

是外部数据源 

 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefans
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
  发帖心情 Post By:2019/9/25 12:04:00 [只看该作者]

我的项目里的所有父表的保存代码都是
e.datarow("制单时间")=date.now
if e.datarow.locked=false then
e.datarow.locked=true
messagebox.show("保存完成!",“提示”)

endif

这个在0908版本正常 到了新版本 发现单据没有锁定 但制单时间是有

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:35369 积分:180029 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/25 13:57:00 [只看该作者]

上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46481 积分:244703 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/9/25 14:23:00 [只看该作者]

我用外部数据源测试,也没有问题,如果你确定有问题,请轻快提交实例。

 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefans
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
  发帖心情 Post By:2019/9/25 15:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190925151644.png
图片点击可在新窗口打开查看

两个问题 1.beforedatarow里的提示没有弹出
2.这个例子里的锁定状态返回是对的,但我项目里的就不行,返回0908版本是正常的我在查是否有其他原因


 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefans
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
  发帖心情 Post By:2019/9/25 15:20:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:bug.zip


 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefans
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:287 威望:0 精华:0 注册:2019/9/6 7:59:00
  发帖心情 Post By:2019/9/25 15:29:00 [只看该作者]

我贴下项目里的beforesavedatarow 事件代码

If vars("保存")=True
    If e.DataRow.Isnull("客户名称") Then
        MessageBox.show("客户名称不能为空!","提示")
        e.Cancel=True
        Return
    End If
    If e.DataRow.Isnull("产品名称") Then
        MessageBox.show("产品名称不能为空!","提示")
        e.Cancel=True
        Return
    End If
    If e.DataRow.Isnull("计量单位") Then
        MessageBox.show("计量单位不能为空!","提示")
        Return
    End If
    If e.DataRow("产品编号").contains("-") Then
        Dim s1,s2 As String
        Dim i As Integer
        s1=e.DataRow("产品编号").split("-")(0)
        s2=e.DataRow("客户编号")
        i=val(e.DataRow("产品编号").split("-")(1))
        If i>0 Then
            Dim dr As DataRow=DataTables("合同顺序号").sqlfind("客户代码='" & s1 & "' and 客户编号='" & s2 & "' and id=" & e.DataRow("_identify"))
            If dr Is Nothing Then
                Dim r As Row=Tables("合同顺序号").addnew
                r("客户代码")=s1
                r("顺序号")=i
                r("客户编号")=s2
                r("id")=e.DataRow("_identify")
                r.save
            End If
        Else
            MessageBox.show("合同编号格式错误!","提示")
            e.Cancel=True
            Return
        End If
    End If
    
    If e.DataRow.Locked=False Then
        e.DataRow.locked=True
        MessageBox.show("保存成功!","提示")
    End If
End If
[此贴子已经被作者于2019/9/25 15:35:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:35369 积分:180029 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/25 15:51:00 [只看该作者]

项目连接不到数据库,无法测试

    If e.DataRow.Locked=False Then
        e.DataRow.locked=True
        MessageBox.show("保存成功!","提示")
    End If

改为
        e.DataRow.locked=True
        MessageBox.show("保存成功!","提示")

[此贴子已经被作者于2019/9/25 15:51:30编辑过]

 回到顶部
总数 21 1 2 3 下一页