'2以txt方法读取外部数据源--有赞订单
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "CSV文件|*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim str As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default)
Dim ary() As String = str.Split(new Char() {chr(10), Chr(13)})
For i As Integer = 9 To ary.Length -1
Dim s() As String = ary(i).Split(",")
Dim nr As Row = Tables("原始订单数据表").AddNew
nr("订单ID") = s(0).replace("""", "").trim()
nr("订单状态") = s(3).replace("""", "").trim()
nr("买家会员名") = s(4).replace("""", "").trim()
nr("买家性别") = s(5).replace("""", "").trim()
nr("买家省份") = s(6).replace("""", "").trim()
nr("买家城市") = s(7).replace("""", "").trim()
nr("是否粉丝") = s(8).replace("""", "").trim()
nr("买家应付订单货款") = s(9).replace("""", "").trim()
nr("买家应付邮费") = s(10).replace("""", "").trim()
nr("订单总金额") = s(11).replace("""", "").trim()
nr("买家实际支付订单金额") = s(12).replace("""", "").trim()
nr("SKU") = s(14).replace("""", "").trim()
nr("商家编码_sku") = s(15).replace("""", "").trim()
nr("商家编码_商品") = s(16).replace("""", "").trim()
nr("维权信息") = s(17).replace("""", "").trim()
nr("收货人姓名") = s(18).replace("""", "").trim()
nr("收货人省份") = s(19).replace("""", "").trim()
nr("收货人城市") = s(20).replace("""", "").trim()
nr("收货人地区") = s(21).replace("""", "").trim()
nr("收货地址") = s(22).replace("""", "").trim()
nr("邮政编码") = s(23).replace("""", "").trim()
nr("运送方式") = s(24).replace("""", "").trim()
nr("自提网点") = s(25).replace("""", "").trim()
nr("预约人") = s(26).replace("""", "").trim()
nr("预约电话") = s(27).replace("""", "").trim()
nr("预约时间") = s(28).replace("""", "").trim()
nr("联系手机") = s(29).replace("""", "").trim()
nr("订单创建时间") = s(30).replace("""", "").trim()
nr("订单付款时间") = s(31).replace("""", "").trim()
nr("宝贝标题") = s(34).replace("""", "").trim()
nr("商品价格") = s(35).replace("""", "").trim()
nr("订单备注") = s(36).replace("""", "").trim()
nr("宝贝总数量") = s(37).replace("""", "").trim()
nr("店铺ID") = s(38).replace("""", "").trim()
nr("店铺名称") = s(39).replace("""", "").trim()
nr("商品留言") = s(40).replace("""", "").trim()
nr("订单留言") = s(41).replace("""", "").trim()
nr("备注") = s(45).replace("""", "").trim()
nr("团编号") = s(48).replace("""", "").trim()
nr("门店ID") = s(49).replace("""", "").trim()
nr("门店名称") = s(50).replace("""", "").trim()
nr("买家实际支付商品金额") = s(51).replace("""", "").trim()
nr("同城送达时间") = s(52).replace("""", "").trim()
nr("交易完成时间") = s(53).replace("""", "").trim()
nr("周期购信息") = s(54).replace("""", "").trim()
Next
MessageBox.show("读取成功,共读取" & DataTables("原始订单数据表").datarows.count & "条记录!")
End If
加好友 
发短信
Post By：2017/4/11 20:17:00 [只看该作者]
