Dim filter2 As String ="[凭证号]='" & drs("凭证号") & "'" And "[借贷方]='贷方'"
Dim Cols5() As String={"财务金额","科目名称","凭证号","日期","科目代码","科目名称英"}
Dim Cols6() As String={"贷方","科目名称","凭证号","日期","科目代码","科目名称英"}
For Each dr5 As DataRow In DataTables("明转账子表").Select(filter2)
Dim dr6 As DataRow = DataTables("财务子表").addnew()
For i As Integer = 0 To Cols3.length-1
dr6(Cols6(i))=dr5(Cols5(i))
Next
Next
按钮执行后，系统显示
从字符串"[凭证号]=’A20110003‘到类型“Long”的转换无形效
加好友 
发短信
Post By：2019/11/16 18:16:00 [显示全部帖子]
