Dim cmd As New SQLCommand
Dim txt As String = e.Form.Controls("TextBox1").Value
Dim pc As Row = Tables("conip").Rows(0)
cmd.C
Dim nms() As String = {"inno","proname","prodate","logcode","indate","supplier"}
cmd.CommandText = "Select inno,proname,prodate,logcode,indate,supplier Fr o m {rs_sourcecode} Where inno = '鸿运20210331' " 老师我这是变量txt,怎修改代码?
Dim dt As DataTable = cmd.ExecuteReader()
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
For c As Integer = 0 To nms.Count -1
Sheet(0, c).Value = nms(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1
For c As Integer = 0 To nms.Count -1
Sheet(r +1, c).Value = dt.DataRows(r)(nms(c)) ’老师我这里面有日期格式的,导出excl显示不是日期怎么办?
Next
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start() '老师我希望导入的excl名字加日期和精确到秒,规避覆盖怎么做?