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 = "数量差"
问题：红色字体中代码没有其作用，即差值标记单元格内容是空的，请问老师，这代码有问题吗？
加好友 
发短信
Post By：2019/3/1 20:52:00 [只看该作者]
