导入代码 ;使用FT系统菜单里的高速合并,数据进去是正常的
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red
Dim Styleb As Xls.Style = Book.NewStyle '新建一个样式
Styleb.BackColor = Color.green
Dim nms() As String = {"产品编号","开始时间","结束时间","备注"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row=t.addnew
r("产品编号")=sheet(n,0).Text
r("开始时间")=sheet(n,1).Text
''r("开始时间")=cdate(sheet(n,1).Text)
''r("开始时间")=cdate(sheet(n,1).value)
r("结束时间")=sheet(n,2).Text
r("备注")=sheet(n,3).Text
Next
加好友 
发短信
Post By：2021/11/17 15:04:00 [只看该作者]
