Foxtable(狐表)用户栏目专家坐堂 → 错误提示是什么意思


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

主题:错误提示是什么意思

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


加好友 发短信
等级:二尾狐 帖子:573 积分:4653 威望:0 精华:0 注册:2014/7/3 15:28:00
错误提示是什么意思  发帖心情 Post By:2016/4/23 13:42:00 [显示全部帖子]

这是表示什么错误

 


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

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


加好友 发短信
等级:二尾狐 帖子:573 积分:4653 威望:0 精华:0 注册:2014/7/3 15:28:00
  发帖心情 Post By:2016/4/23 16:23:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "二级编码","入库数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [二级编码] = '" & mr("二级编码") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
            mr("库存数量") = mr("入库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [二级编码] = '" & dr("二级编码") & "'")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("库存数量") = drs(i-1)("库存数量") + drs(i)("入库数量")
        Next
End Select

 

这样的代码:看不出来哪里问题


    DataTables("商品库存").DataCols("二级编码").RaiseDataColChanged("二级编码 = '" &e.DataRow("二级编码") & "'")


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


加好友 发短信
等级:二尾狐 帖子:573 积分:4653 威望:0 精华:0 注册:2014/7/3 15:28:00
  发帖心情 Post By:2016/4/23 20:24:00 [显示全部帖子]

试了好多次都不行,最后把代码剪切掉,重新打开项目,再把代码复制上去操作就可以了,不知道是什么原因


 回到顶部