Dim dt As DataTable = DataTables("金蝶银行账")
Dim cmd As New SQLCommand
cmd.C
For Each dr As DataRow In dt.dataRows
cmd.CommandText = "Ins ert In to {TRBankJnl} ([FDATE],[FPERIOD],[FACCTID],[FCYID],[FDEBIT],[FCREDIT],[FEXP],[FORDERID],[FCLOSED],[FPREPARER]) Values(#" & dr("FDATE") & "#," & dr("FPERIOD") & ",'" & dr("FACCTID") & "','" & dr("FCYID") & "'," & dr("FDEBIT") & "," & dr("FCREDIT") & ",'" & dr("FEXP") & "'," & dr("FORDERID") & "," & dr("FCLOSED") & ",'" & dr("FPREPARER") & "')"
cmd.ExecuteNonQuery
next
上面语句中红色字段[FCLOSED]是逻辑列,去掉就能写入,加上就不能写入.不知错在哪里.
[此贴子已经被作者于2018/11/12 13:49:41编辑过]