标题：求助一段代码，不知道怎么回事 报错实在找不到原因了 特来求助
If e.DataCol.Name = "数量"
Dim rs As Integer = "编号 = " & e.DataRow("编号") And "[方向] = '入库' "
Dim cs As Integer = "编号 = " & e.DataRow("编号") And "[方向] = '出库' "
Dim dqk As List(of DataRow) = DataTables("当前库存").Select(rs)
For Each dqs As DataRow In dqk
Dim rss As Double = e.DataTable.Compute("sum(数量)",rs)
Dim css As Double = e.DataTable.Compute("sum(数量)",cs)
dqs("数量") = rss - css
Next
End If
总报编号的数据类型不对 已经查看过了 而且改成String一样报错 实在是想不到还能改的地方了 教程也看了无数次了 特来论坛求助 希望帮帮忙 谢谢了
if e.DataCol.Name = "数量"
Dim rss,css As Double
Dim rs,cs As String
rs = "编号 = '" & e.DataRow("编号") & "' And [方向] = '入库' "
cs = "编号 = '" & e.DataRow("编号") & "' And [方向] = '出库' "
Dim dqk As List(of DataRow) = DataTables("当前库存").Select(rs)
For Each dqs As DataRow In dqk
rss = e.DataTable.Compute("sum(数量)",rs)
css = e.DataTable.Compute("sum(数量)",cs)
dqs("数量") = rss - css
Next
End If
理由:
http://www.foxtable.com/help/topics/1284.htm
