dt1 和 dt2已调换了,以下代码:
Dim dtb As New DataTableBuilder("统计")
MessageBox.Show(1)
dtb.AddDef("sys_user", Gettype(String), 32)
MessageBox.Show(2)
dtb.AddDef("年", Gettype(String),10)
MessageBox.Show(3)
dtb.AddDef("msy", Gettype(String),40)
MessageBox.Show(4)
dtb.AddDef("支出合计", Gettype(Double))
MessageBox.Show(5)
dtb.Build()
MessageBox.Show(6)
For Each nm() As String In dt2.GetValues("sys_user|年|msy")
MessageBox.Show(7)
Dim dr As DataRow = DataTables("统计").AddNew()
MessageBox.Show(8)
dr("sys_user") = nm(0)
MessageBox.Show(9)
dr("年") = nm(1)
MessageBox.Show(10)
dr("msy") = nm(2)
MessageBox.Show(11)
Dim dr1 As DataRow = dt1.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
MessageBox.Show(12)
If dr1 IsNot Nothing Then
MessageBox.Show(13)
dr("支出合计") = dr1("支出合计")
MessageBox.Show(14)
End If
MessageBox.Show(15)
Next
MainTable= Tables("统计")
MessageBox.Show(16)
执行到11就出现错误提示
.NET Framework 版本:2.0.50727.8000
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,上市肉猪费用,Button1,Click
详细错误信息:
无法在 System.Int32 和 System.String 上执行“=”操作。