以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下面这个统计符合条件明细记录数量的代码,是否可以写得更简化(已解决)?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128551)

--  作者:lunengcheng
--  发布时间:2018/12/10 12:17:00
--  [求助]下面这个统计符合条件明细记录数量的代码,是否可以写得更简化(已解决)?
各位老师前辈,我写了下面这样几段用来统计符合条件明细数量的代码,像这些代码,是否能整合到一起,用更加简化的方法来写呢,先谢了!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码简化1.txt


[此贴子已经被作者于2018/12/10 13:42:26编辑过]

--  作者:有点甜
--  发布时间:2018/12/10 12:26:00
--  

看懂这段

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=128540&skin=0

 

看不懂看视频教程

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 


--  作者:y2287958
--  发布时间:2018/12/10 12:29:00
--  
Dim lms As String = "工作|物品|账号|其它"
Dim lst As new List(of String)
lst.AddRange(lms.split("|"))

If lst.Contains(e.DataCol.Name & "交接")
    Dim cmd As New SQLCommand
    cmd.ConnectionName = "主数据源"
    cmd.CommandText = "S elect Count(*) From {YW_人事交接" & e.DataCol.Name & "交接} Where 编号 = \'" & e.DataRow("编号") & "\'"
    e.DataRow(e.DataCol.Name & "交接")= cmd.ExecuteScalar()
End If

[此贴子已经被作者于2018/12/10 12:31:02编辑过]

--  作者:lunengcheng
--  发布时间:2018/12/10 13:42:00
--  
学到了,多谢两位老师指导!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:我的代码.txt