方法一：最后加上
Tables(e.Form.Name & "_Table6").DataTable.DataCols.Add("染缸完成日期", gettype(string))Tables(e.Form.Name & "_Table6").DataTable.ReplaceFor("染缸完成日期", dt1.value)
方法二：把日期作为分组
g.Groups.AddDef("染缸完成日期")
加好友 
发短信
Post By：2016/12/28 9:58:00 [显示全部帖子]
