- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合并填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84893)
-- 发布时间：2016/5/12 16:30:00
-- 合并填充
此主题相关图片如下：4.png
如图所示：
1、根据第一列填充
2、如果是CIF,那么和目的港合并成 CIF HANBURGT填入表E中的一列
3、如果是FOB,那么和目的港合并成 FOB SHANGHAI填入表E中的一列
-- 发布时间：2016/5/12 16:33:00
--
此主题相关图片如下：5.png
-- 发布时间：2016/5/12 17:00:00
--
参考
http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2016/5/12 17:02:00
--
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
If dr1("第一列") = "AAA" Then
dr2("第二列") = "ccc"
ElseIf dr1("第一列") = "BBB" Then
dr2("第二列") = "ddd"
End If
Next
-- 发布时间：2016/5/12 17:14:00
--
“ccc”和“ddd”是2个列的数据合并的，就是说源表CIF和另外一列的Hamburg合并在一起，在接收表中一个列中显示CIF HAMBURG
-- 发布时间：2016/5/12 17:16:00
--
那就直接写
dr2("第二列") = dr1("第一列") & " " & dr1("第三列")