Dim bm As String ="临时表"
If not DataTables(bm).DataCols.Contains("所属表") Then
DataTables(bm).DataCols.Add("所属表", Gettype(String), 200)
End If
If not DataTables(bm).DataCols.Contains("列名") Then
DataTables(bm).DataCols.Add("列名", Gettype(String), 200)
End If
If not DataTables(bm).DataCols.Contains("类型") Then
DataTables(bm).DataCols.Add("类型", Gettype(String), 200)
End If
If not DataTables(bm).DataCols.Contains("长度") Then
DataTables(bm).DataCols.Add("长度", Gettype(String), 200)
End If
If not DataTables(bm).DataCols.Contains("数据源名称") Then
DataTables(bm).DataCols.Add("数据源名称", Gettype(String), 200)
End If
DataTables(bm).DeleteFor("[_Identify] Is not null")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * Fro m {临时表}"
dt = cmd.ExecuteReader()
For Each dc As DataCol In dt.DataCols
Output.Show("ll " & dc.Name)
Next
For Each dl As Col In CurrentTable.Cols
Output.Show(dl.Name)
If dt.DataCols.Contains(dl.name)=False Then
DataTables(bm).DataCols.Delete(dl.Name)
End If
Next
加好友 
发短信
Post By：2022/1/22 10:30:00 [显示全部帖子]
