DataTables("baobiao").DataRows.Clear
Dim da =Tables("wuliu").Current("fadata")
Dim Cols1() As String = {"fadata","uid","kg"}
Dim Cols2() As String = {"fadata","uid","kg"}
For Each dr1 As DataRow In DataTables("wuliu").Select("fadata" & "=" & da)
Dim dr2 As DataRow = DataTables("baobiao").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
DataTables("baobiao").Save
请问红色的部分应该怎么改?
非常感谢,好久不用了,生疏了~~
错误提示为 System.String ? System.Int32?? '=' 不能执行,、、
[此贴子已经被作者于2021/4/13 11:25:30编辑过]