Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"单据编码","客户全称","单据类型","送货日期","货品编码","产品名称","规格","单位","数量","含税单价","含税金额","税率","不含税金额","税额","合同号"}
Dim dCols() As String = {"单号","往来名称","单据类型","日期","货物编码","货物名称","规格","单位","数量","含税单价","含税金额","税率","不含税金额","税额","合同号"}
cmd.C
cmd.CommandText = "SELECT * Fr om {销售明细}"
dt = cmd.ExecuteReader(True)
'For Each dr1 As DataRow In DataTables("销售开单").Select("[会计年度] Is not null")
'For Each dr As DataRow In dt.DataRows
'If dr("过帐") = Nothing Then
'Dim nr As DataRow = DataTables("销售明细").AddNew()
'For i As Integer =0 To sCols.Length -1
'nr(dCols(i)) = dr(sCols(i))
'Next
'dr("过帐") = 123
'End If
'Next
这样还是不行
加好友 
发短信
Post By：2021/4/6 16:17:00 [显示全部帖子]
此主题相关图片如下：qq截图20210406195226.jpg