以文本方式查看主题 - 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 -- 我测试没有问题,请上传实例说明 |