代码二
Dim cmd As New SQ--LCommand
Dim dt As DataTable
Dim sCols() As String = {"单号", "料号", "品名"，"表A日期", "表A数量", "表B数量", "表C数量", "审核"}
Dim dCols() As String = {"单号", "料号", "品名"，"表A日期", "表A数量", "表B数量", "表C数量", "审核"}
cmd.ConnectionName = "C"
cmd.CommandText = "SELEC--T * From {窗口1_Tables}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim nr As DataRow = DataTables("表D").AddNew()
For i As Integer =0 To sCols.Length -1
nr(dCols(i)) = dr(sCols(i))
Next
Next
问题二：用代码二，将SQ-L的内容写入表D,没报错，也没把数据写表D，如何解决？
加好友 
发短信
Post By：2023/8/25 16:15:00 [显示全部帖子]
