[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Access文件|*.mdb" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

For Each dr As DataRow In DataTables("对公客户明细").Select("账号 is not null")

Dim fdr As DataRow = DataTables("对公客户明细").Find("账号 = '"& dr("账号") &"'")

If fdr Is Nothing Then

fdr = DataTables("对公客户明细").AddNew

fdr("经营情况") = dr("经营情况")

fdr("企业规模") = dr("企业规模")

fdr("联系人") = dr("联系人")

fdr("职务及备注信息") = dr("职务及备注信息")

fdr("金融需求与个人爱好") = dr("金融需求与个人爱好")

fdr("座机") = dr("座机")

fdr("手机") = dr("手机")

fdr("地址") = dr("地址")

fdr("身份证号") = dr("身份证号")

fdr("已开通业务") = dr("已开通业务")

fdr("准备开通业务") = dr("准备开通业务")

fdr("紧急程度") = dr("紧急程度")

fdr("认领员工") = dr("认领员工")

fdr("联系情况及网点反馈") = dr("联系情况及网点反馈")

Else

fdr("经营情况") & =Iif(fdr.isnull("经营情况"),dr("经营情况"),Iif(fdr("经营情况").contains(dr("经营情况")) OrElse dr.Isnull("经营情况"),"",","& dr("经营情况")))

fdr("企业规模") & =Iif(fdr.isnull("企业规模"),dr("企业规模"),Iif(fdr("企业规模").contains(dr("企业规模")) OrElse dr.Isnull("企业规模"),"",","& dr("企业规模")))

fdr("联系人") & =Iif(fdr.isnull("联系人"),dr("联系人"),Iif(fdr("联系人").contains(dr("联系人")) OrElse dr.Isnull("联系人"),"",","& dr("联系人")))

fdr("职务及备注信息") & =Iif(fdr.isnull("职务及备注信息"),dr("职务及备注信息"),Iif(fdr("职务及备注信息").contains(dr("职务及备注信息")) OrElse dr.Isnull("职务及备注信息"),"",","& dr("职务及备注信息")))

fdr("金融需求与个人爱好") & =Iif(fdr.isnull("金融需求与个人爱好"),dr("金融需求与个人爱好"),Iif(fdr("金融需求与个人爱好").contains(dr("金融需求与个人爱好")) OrElse dr.Isnull("金融需求与个人爱好"),"",","& dr("金融需求与个人爱好")))

fdr("座机") & =Iif(fdr.isnull("座机"),dr("座机"),Iif(fdr("座机").contains(dr("座机")) OrElse dr.Isnull("座机"),"",","& dr("座机")))

fdr("手机") & =Iif(fdr.isnull("手机"),dr("手机"),Iif(fdr("手机").contains(dr("手机")) OrElse dr.Isnull("手机"),"",","& dr("手机")))

fdr("地址") & =Iif(fdr.isnull("地址"),dr("地址"),Iif(fdr("地址").contains(dr("地址")) OrElse dr.Isnull("地址"),"",","& dr("地址")))

fdr("身份证号") & =Iif(fdr.isnull("身份证号"),dr("身份证号"),Iif(fdr("身份证号").contains(dr("身份证号")) OrElse dr.Isnull("身份证号"),"",","& dr("身份证号")))

fdr("已开通业务") & =Iif(fdr.isnull("已开通业务"),dr("已开通业务"),Iif(fdr("已开通业务").contains(dr("已开通业务")) OrElse dr.Isnull("已开通业务"),"",","& dr("已开通业务")))

fdr("准备开通业务") & =Iif(fdr.isnull("准备开通业务"),dr("准备开通业务"),Iif(fdr("准备开通业务").contains(dr("准备开通业务")) OrElse dr.Isnull("准备开通业务"),"",","& dr("准备开通业务")))

fdr("紧急程度") & =Iif(fdr.isnull("紧急程度"),dr("紧急程度"),Iif(fdr("紧急程度").contains(dr("紧急程度")) OrElse dr.Isnull("紧急程度"),"",","& dr("紧急程度")))

fdr("认领员工") & =Iif(fdr.isnull("认领员工"),dr("认领员工"),Iif(fdr("认领员工").contains(dr("认领员工")) OrElse dr.Isnull("认领员工"),"",","& dr("认领员工")))

fdr("联系情况及网点反馈") & =Iif(fdr.isnull("联系情况及网点反馈"),dr("联系情况及网点反馈"),Iif(fdr("联系情况及网点反馈").contains(dr("联系情况及网点反馈")) OrElse dr.Isnull("联系情况及网点反馈"),"",","& dr("联系情况及网点反馈")))

End If

主题：[求助]