|
Dim Result = MessageBox.Show("对接资料会覆盖原有数据,确定要对接客户资料吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("客户资料").stopredraw
Dim nma() As String = {"client_no","name","sala_addre","rea_man","rea_tel"} 'A表数据来源列
Dim nmb() As String = {"客户编号","公司名称","地址","联系人","联系方式"} 'B表数据接收列
For Each dr As Row In Tables("MS_Client").Rows
Dim r As Row = Tables("客户资料").addnew()
For n As Integer = 0 To nmb.length -1
r(nmb(n)) = dr(nma(n))
Next
Next
Tables("客户资料").ResumeRedraw()
End If
|
加好友 
发短信
Post By：2018/3/2 11:01:00 [显示全部帖子]
