Foxtable(狐表)用户栏目专家坐堂 → 提示 导入数据时 操作超时 怎么办呢?


  共有3391人关注过本帖树形打印复制链接

主题:提示 导入数据时 操作超时 怎么办呢?

美女呀,离线,留言给我吧!
yuyan
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:56 积分:618 威望:0 精华:0 注册:2015/4/16 17:04:00
提示 导入数据时 操作超时 怎么办呢?  发帖心情 Post By:2018/9/30 14:00:00 [只看该作者]

MessageBox.Show("开始导入!请稍等")

DataTables("SAP领料数据2").DeleteFor("")

Dim DD1 As String = e.Form.Controls("textbox1").VALUE

Dim DD2 As String = e.Form.Controls("textbox2").VALUE

Dim v = New ClassLibrary1.Class4().getvalue(dd1,dd2)

If v.Length > 0 Then

    For i As Integer = 0 To v.Length -1

        Dim dr As DataRow

        dr = DataTables("SAP领料数据2").AddNew()

        If v(i).MATNR =  ""  Then

           dr("物料编号") = v(i).MATNR

        Else If v(i).MATNR.Length >0 Then

           dr("物料编号") = v(i).MATNR.Substring(v(i).MATNR.length - 8)

        End If

        dr("物料描述") = v(i).MAKTX

        dr("单位") = v(i).MEINS

        dr("数量") = v(i).MENGE

        dr("单价") = v(i).NETPR

        dr("总金额") = v(i).DMBTR

        dr("借贷方标识") = v(i).SHKZG

        dr("库存地点") = v(i).LGORT

        dr("库存地点描述") = v(i).LGOBE

        dr("所属部门") = v(i).LGOBE

        dr("过账日期") = v(i).BUDAT

'输入日期是字符型

        dr("输入日期") =v(i).CPUDT.Substring(5,2)&"/"&v(i).CPUDT.Substring(8,2)&"/"&v(i).CPUDT.Substring(2,2)

        dr("输入时间") = v(i).CPUTM

        dr("员工姓名") = v(i).NAME

        dr("项目编号") = v(i).ZWRXM

        dr("项目名称") = v(i).ZWRXMMC

        dr("物料凭证编号") = v(i).MBLNR

        dr("物料凭证年度") = v(i).MJAHR

        dr("物料凭证项目号") = v(i).ZEILE

        dr("成本中心") = v(i).KOSTL

        dr("成本中心描述") = v(i).KTEXT

        dr("移动类型") = v(i).BWART

        dr("抬头文本") = v(i).BKTXT

        dr("项目文本") = v(i).SGTXT

        dr("发货单编号") = v(i).XABLN

        dr("接收方") = v(i).WEMPF

        dr("导入日期") =Date.Today()

        dr("导入时间") =Date.Now 

        dr("会计科目借方") = v(i).HKONT

        dr("会计科目贷方") = v(i).HKONT1

        dr("借方描述") = v(i).TXT50

        dr("贷方描述") = v(i).TXT501

        dr("月份") = v(i).BUDAT.Substring(2,2)&""&v(i).BUDAT.Substring(5,2)&""

        dr("发货实际金额") = v(i).GI_PHY

        dr("发货差异") = v(i).GI_DIF

 

Next

endif


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/30 14:22:00 [只看该作者]

调用外部接口?有多少数据?是调用外部接口超时?还是什么地方超时

 回到顶部