Dim dt As DataTable
Dim Cols1() As String = {"习题ID","习题类型","习题题目","正确答案","习题解析"}
cm d.CommandText = "Se lect * fr om XL_T习题明细清单 Wh ere 选择归属= '" & KC & "'"
dt = c md.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Dim dr2 As DataRow = DataTables("TmInfos").AddNew()
dr2("OpenID") = OA
dr2("课程ID") = KC
dr2("练习次数") = 1
dr2("生成时间") = Date.Now
dr2("ActiveTime") = Date.Now
For i As Integer = 0 To Cols1.Length -1
dr2(Cols1(i)) = dr1(Cols1(i))
Next
Next