以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 更改成选择生成内容 (http://foxtable.net/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 |