Foxtable(狐表) → 用户栏目 → 专家坐堂 → 类同的代码合并


  共有4015人关注过本帖树形打印复制链接

主题：类同的代码合并
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：354 积分：4345 威望：0 精华：0 注册：2016/4/30 10:41:00 		类同的代码合并  发帖心情 Post By：2021/6/24 23:00:00 [只看该作者]

求助老师，文档中有几段类同的代码，能否合并一下，简单写出来
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/24 23:38:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select Distinct Year(接单日期) As 年, Month(接单日期) As 月, Day(接单日期) As 日 From {销售订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日","年 > 2020")

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree(dt, "年|月|日","年 > 2020")

cmd.CommandText = "Select Distinct Year(申请日期) As 年, Month(申请日期) As 月, Day(申请日期) As 日 From {外协产品申请}"
dt2 = cmd.ExecuteReader()
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv2.BuildTree(dt2, "年|月|日","年 > 2020")

Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView4")
trv3.BuildTree(dt2, "年|月|日","年 > 2020")
 回到顶部
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：354 积分：4345 威望：0 精华：0 注册：2016/4/30 10:41:00 		  发帖心情 Post By：2021/6/25 0:06:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：354 积分：4345 威望：0 精华：0 注册：2016/4/30 10:41:00 		  发帖心情 Post By：2021/6/25 19:00:00 [只看该作者]

提示错误
图片点击可在新窗口打开查看此主题相关图片如下：4c2bddc33970e6e192219816e02633b.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/26 8:59:00 [只看该作者]

cmd.ConnectionName = "数据源名称"

代码被网站屏蔽了，自己补充完整
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询