以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 字符转换问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143189) |
-- 作者:Davidwu -- 发布时间:2019/11/16 18:16:00 -- 字符转换问题 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”的转换无形效
|
-- 作者:有点蓝 -- 发布时间:2019/11/17 19:52:00 -- Dim filter2 As String ="[凭证号]=\'" & drs("凭证号") & "\' And [借贷方]=\'贷方\'" |