主题：格式转换

此主题相关图片如下：qq截图20140728150133.png

不同格式如何转换？

Dim a As Table = Tables("材料月报2_Table1")

Dim b As Table = Tables("材料期初表")

For r As Integer = 0 To a.Rows.Count - 1

    b.AddNew

       b.Current("日期") = a.Rows(r)("年") & a.Rows(r)("月") + 1 & 01