以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  更改成选择生成内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148272)

--  作者：有点蓝 --  发布时间：2020/4/3 16:18:00 --   代码没有问题呀，放到控件的valuechanged事件即可

--  作者：chen37280600 --  发布时间：2020/4/3 16:19:00 --   橙色，绿色，白色，灰色，蓝色，然后还有3D拟物化的滚动条，这配色，厉害···

--  作者：有点蓝 --  发布时间：2020/4/3 16:37:00 --   这个意思？ For Each cr As Row In Tables("产品开发建档_资料建档").GetCheckedRows     For Each s As String In e.sender.text.split(",")         Dim nr As DataRow = DataTables("产品开发建档_过程明细").AddNew()         nr("序号内容") = s         nr("开发项目编码") = cr("开发项目编码")         nr("样件编码") = cr("样件编码")         nr("创建人员") = _UserName         nr("创建日期") = Date.Today         nr("完成状态") = "待处理"         nr("使用状态") = "待处理"         nr("年") = Format(Date.Today, "yyyy")         nr("月") = Format(Date.Today, "yyyyMM")         nr("日") = Format(Date.Today, "yyyyMMdd")     Next Next