以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  两表数据对比  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131588)
--  作者：蓝蚂蚁
--  发布时间：2019/3/1 20:52:00
--  两表数据对比
If e.Form.controls("Table3").Table.Cols.Contains("数量差")=False Then
    e.Form.controls("Table3").Table.DataTable.DataCols.Add("数量差", Gettype(Integer))
End If
If e.Form.controls("Table3").Table.Cols.Contains("差值标记")=False Then
    e.Form.controls("Table3").Table.DataTable.DataCols.Add("差值标记", Gettype(String),16)
End If

For Each drb As Row In Tables("打计划用库存").rows \'先对打计划用库存表从头到尾历尽一遍
    Dim fdr As DataRow = DataTables("电脑查询库存表").Find("字典编码 = \'" & drb("字典编码") & "\'")
    If fdr IsNot Nothing Then \'如果电脑查询库存表找到相同的字典编码
        fdr("数量差") = fdr("库存")-drb("库存")
    Else  \'如果电脑查询库存表没有找到相同的字典编码
        fdr = DataTables("电脑查询库存表").addnew
        fdr("字典编码") = drb("字典编码")
        fdr("通用名称") = drb("通用名称")
        fdr("规格型号") = drb("规格型号")
        fdr("单位") = drb("单位")
        fdr("数量差") =0-drb("库存")
        fdr("差值标记") = "电查表--无"
    End If
Next
For Each dra As Row In Tables("电脑查询库存表").rows \'再对电脑查询库存表从头到尾历尽一遍
    Dim fdr As DataRow = DataTables("打计划用库存").Find("字典编码= \'" & dra("字典编码") & "\'")
    If fdr Is Nothing Then \'如果打计划用库存无
        dra("数量差") =dra("库存")
        dra("差值标记") ="打计划库存表--无"" 
    End If
Next
e.Form.controls("Table3").Table.Sort = "数量差"
问题：红色字体中代码没有其作用，即差值标记单元格内容是空的，请问老师，这代码有问题吗？
--  作者：有点蓝
--  发布时间：2019/3/1 21:22:00
--  
dra("差值标记") ="打计划库存表--无"

代码没有问题，看看有没有符合条件的数据