主题：垂直表和水平表转换

 

代码的最后，你动态加一个临时列，然后计算即可

 

http://www.foxtable.com/help/topics/1428.htm

 

还有一个问题，用了老师的代码后，我原来那个源数据表就没有办法进入了，点到那个数据表卡住，然后直接到那个转换后的表了。

 具体例子发上来测试。

maintableChanged事件，去掉这些代码，如果要运行，你至少要加上表名判断啊

 

DataTables("茂星业务").DataCols("订单编号").RaiseDataColChanged()

Dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "订单编号,客户简称,出口日期" '指定数据来源列
f.DataTable = DataTables("出口单证") '指定数据接收表
f.DataCols = "Orderno,客户简称,departure_date" '指定数据接收列
f.Fill() '填充数据

Dim g As New Filler
g.SourceTable = DataTables("订单") '指定数据来源
g.SourceCols = "订单编号,品名,数量,出口单价USD" '指定数据来源列
g.DataTable = DataTables("出口明细") '指定数据接收表
g.DataCols = "Orderno,description,quantity,unit_price" '指定数据接收列
g.Fill() '填充数据

谢谢，卡的问题解决了，但是目前进去数据表【货代应付款】直接会跳到数据表【付款管理】

无语，谁叫你把代码写到datacolchanged事件去啊，单独做一个按钮生成表啊。

 

不要在DataColChanged事件写那段代码啊，单独做一个按钮写。