以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  折叠模式下的取值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173715)

--  作者:rjh4078
--  发布时间:2021/12/13 12:13:00
--  折叠模式下的取值问题
Dim t As Table=Tables("生产计划单.生产计划明细")
Dim st As New GroupTreeSetting()
st.GroupCols = {"产品编号","交货日期","机器"}
st.AggregateCols = {"交货数","重量"}
st.SortCol="机器,交货日期"
t.ShowGridTree(st,2)
For i As Integer = 0 To t.Rows.Count(True) - 1
if r.level=2 then
    当机器出现空值
使用r("机器")这样的调用会出现报错
从类型“DBNull”到类型“String”的转换无效。
   在 Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
   在 UserCode.ANJ5JE2lKhn8UBnwA(ControlEventArgs e)
改为r.getvalue("机器") 则所有返回的结果都是空值
End if
next

--  作者:有点蓝
--  发布时间:2021/12/13 13:34:00
--  
怎么使用r("机器")的?没看到相关代码?
--  作者:rjh4078
--  发布时间:2021/12/13 14:47:00
--  
Dim t As Table=Tables("生产计划单.生产计划明细")
Dim st As New GroupTreeSetting()
st.GroupCols = {"产品编号","交货日期","机器"}
st.AggregateCols = {"交货数","重量"}
st.SortCol="机器,交货日期"
t.ShowGridTree(st,2)
For i As Integer = 0 To t.Rows.Count(True) - 1
if r.level=2 then
if r("机器")<>"1号机" then

endif

    当机器出现空值
使用r("机器")这样的调用会出现报错
从类型“DBNull”到类型“String”的转换无效。
   在 Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
   在 UserCode.ANJ5JE2lKhn8UBnwA(ControlEventArgs e)
改为r.getvalue("机器") 则所有返回的结果都是空值
End if
next

--  作者:有点蓝
--  发布时间:2021/12/13 14:59:00
--  
我测试没有问题,请上传实例说明

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