Foxtable(狐表)用户栏目专家坐堂 → 请问各位高手,下面这段代码,哪里出错了?


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

主题:请问各位高手,下面这段代码,哪里出错了?

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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
请问各位高手,下面这段代码,哪里出错了?  发帖心情 Post By:2012/10/10 8:58:00 [只看该作者]

If e.col.Name = "期末结存_数量" Then
    If e.Row.IsNull("期末结存_数量") = False
        If e.Row("期末结存_数量") <= DataTables("物品管理").DataCols("最低库存") Then
            e.Style = "最低库存"
        End If
    End If
End If

 

 

我是想实现这种效果,当前表 列 期末结存_数量 如果小于或等于 物品管理表 的 最低库存 则 会作出提醒。


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/10/10 9:24:00 [只看该作者]

If e.col.Name = "期末结存_数量" Then
    If e.Row.IsNull("期末结存_数量") = False
        Dim dr As DataRow = DataTables("物品管理").find("[物品编码] = '" & e.Row("物品编码") & "'","出库日期 Desc",0)
        If e.Row("期末结存_数量") <= dr("最低库存") Then
            e.Style = "最低库存"
        End If
    End If
End If

 

[物品编码]和[出库日期]两列为我给您假设,换成您自己的具备类似特征的列名称即可!


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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/10/10 10:17:00 [只看该作者]

我把代码改成这样 可是确一直出错啊

If e.col.Name = "期末结存_数量" Then
    If e.Row.IsNull("期末结存_数量") = False
        Dim dr As DataRow = DataTables("物品管理").find("[最低库存] = '" & e.Row("期末结存_数量") & "'","月份 Desc",0)
        If e.Row("期末结存_数量") <= dr("最低库存") Then
            e.Style = "最低库存"
        End If
    End If
End If

请问 到底是哪里出错了呢?


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/10/10 10:25:00 [只看该作者]

用户已被锁定

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/10/10 10:34:00 [只看该作者]

If e.col.Name = "期末结存_数量" Then
    If e.Row.IsNull("期末结存_数量") = False
        Dim dr As DataRow = DataTables("物品管理").find("[最低库存] = '" & e.Row("期末结存_数量") & "'","月份 Desc",0)
      if dr isnot nothing then
        If e.Row("期末结存_数量") <= dr("最低库存") Then
            e.Style = "最低库存"
        End If
end if
    End If
End If

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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/10/10 10:39:00 [只看该作者]

上面的这个代码 还是出错

上面的这个代码是写子啊DrawCell里,出现这样的错误提示:

NET Framework 版本:2.0.50727.3634
Foxtable 版本:2012.9.29.1
错误所在事件:表,收发存报表,DrawCellEdit
详细错误信息:
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.IndexOutOfRangeException: 无法找到列 月份。
   在 System.Data.DataTable.ParseSortString(String sortString)
   在 System.Data.Select..ctor(DataTable table, String filterExpression, String sort, DataViewRowState recordStates)
   在 System.Data.DataTable.Select(String filterExpression, String sort)
   在 Foxtable.DataTable.Find(String OO01ll0Ol1O10ll1, String O01l, Int32 O1lOO)
   在 UserCode.DrawCell(DrawCellEventArgs e)
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.Ol0OOl0100lO10.Ol00O10ll1l1OllO(Object O101l0, OwnerDrawCellEventArgs O, Boolean OO1101l001O100001100l, Boolean Ol0l0l1)


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/10/10 10:40:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/10/10 10:41:00 [只看该作者]

没有

 


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/10/10 10:47:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/10/10 10:56:00 [只看该作者]

如果去掉 那代码又该怎么写呢

试了好多次 总是出现错误提示


 回到顶部
总数 12 1 2 下一页