Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
Dim ksmc As String = trim(e.Form.controls("combobox1").value)
'MessageBox.show(ksmc)
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Sele ct * from{成绩} where 考试名称 = '" & ksmc & "'"
Dim dt As DataTable = cmd.ExecuteReader(True)
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
'MessageBox.show(trim(sheet(n,0).value))
Dim dr As DataRow = dt.SQLfind("考试名称 = '" & ksmc & "' and 考号 = '" & trim(sheet(n,0).value) & "'")
If dr IsNot Nothing Then
For m As Integer = 1 To sheet.Cols.count -1
'MessageBox.show(trim(sheet(0,m).value) & "_B")
dr(trim(sheet(0,m).value) & "_B") = sheet(n,m).value
Next
End If
Next
dt.save
End If
老师我想这样改，没提示错，但没写入呢,请指正
加好友 
发短信
Post By：2016/12/8 10:50:00 [显示全部帖子]
