主题：如何将一个表列名上的日期转成另一个表的日期型数据

做个按钮，代码大概如此：

For Each dr1 As DataRow in DataTables("产品交期回复表").Datarows

   For each dc As DataCol In DataTables("产品交期回复表").DataCols

          if dc.name <> "产品编码" Then

               Dim dr2 As DataRow  = DataTables("发货计划表").Addnew

               dr2("产品编码") = dr1("产品编码")

               dr2("发货日期") = dc.name

               dr2("发货数量")  = dr1(dc.name)

          End If

   Next

Next

搞不定就做个例子发上来，因为任何人写代码，都不会一气呵成，需要测试分析，有例子可以测试好发给你，否则最多只能是大概写一下。