以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 基础问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122061) |
|
-- 作者:wuchangke4 -- 发布时间:2018/7/18 11:55:00 -- 基础问题 现在我每个表都用到如下统计代码,想用菜单代替,但对e参数不是很熟,如何将表事件代码转为标准按钮代码? Dim skdt As DataTable Dim skdc As DataCol If e.DataCol.name = "lwg" Or e.DataCol.name = "Gyg" Dim sksumlwg As Double Dim sksumgyg As Double For Each skdc In e.DataTable.DataCols Select Case skdc.name Case "Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32" sksumlwg = sksumlwg + e.DataRow(skdc.name) Case "Gyg12","Gyg10","Gyg8","Gyg6" sksumgyg = sksumgyg + e.DataRow(skdc.name) End Select Next e.DataRow("Lwg") = sksumlwg e.DataRow("Gyg") = sksumgyg End If |
|
-- 作者:有点甜 -- 发布时间:2018/7/18 12:30:00 -- Dim r As Row = Tables("表A").current Dim skdt As DataTable = r.Table.DataTable Dim sksumlwg As Double Dim sksumgyg As Double For Each skdc As DataCol In skdt.DataCols Select Case skdc.name Case "Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32" sksumlwg = sksumlwg + r(skdc.name) Case "Gyg12","Gyg10","Gyg8","Gyg6" sksumgyg = sksumgyg + r(skdc.name) End Select Next r("Lwg") = sksumlwg r("Gyg") = sksumgyg |
|
-- 作者:wuchangke4 -- 发布时间:2018/7/18 14:17:00 -- Dim r As Row = Tables("表A").current 这一句是否有了局限,如果一个项目里有十个表需要用这个功能组件呢?
|
|
-- 作者:有点甜 -- 发布时间:2018/7/18 14:29:00 -- Dim r As Row = Tables("表A").current
改成
Dim r As Row = currentTable.current |
|
-- 作者:wuchangke4 -- 发布时间:2018/7/18 14:48:00 -- 如果需要列Lwg和列Gy一次性完成整列统计,不要一行一行的,可以实现吗? |
|
-- 作者:有点甜 -- 发布时间:2018/7/18 15:52:00 -- Dim skdt As DataTable = DataTables("表A") For Each r As DataRow In skdt.Select("") Dim sksumlwg As Double = 0 Dim sksumgyg As Double = 0 For Each skdc As DataCol In skdt.DataCols Select Case skdc.name Case "Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32" sksumlwg = sksumlwg + r(skdc.name) Case "Gyg12","Gyg10","Gyg8","Gyg6" sksumgyg = sksumgyg + r(skdc.name) End Select Next r("Lwg") = sksumlwg r("Gyg") = sksumgyg Next |
|
-- 作者:wuchangke4 -- 发布时间:2018/7/18 16:06:00 -- Dim skdt As DataTable = DataTables("表A") 这个表A是否又具有局限性了?
|
|
-- 作者:wuchangke4 -- 发布时间:2018/7/18 16:54:00 --
Dim skdt As DataTable =currenttable.DataTable 会有影响吗?
|
|
-- 作者:有点甜 -- 发布时间:2018/7/18 17:33:00 -- 如果多个表一起执行,改成下面,如果运算当前表,改成 Dim skdt As DataTable =currenttable.DataTable
Dim dts() As String = {"表A", "表B", "表C"} |
|
-- 作者:wuchangke4 -- 发布时间:2018/7/19 14:49:00 -- 如果要实现当右击Lwg或Gyg这两列中的任意一列的单元格时,显示快捷菜单,如何设置代码?
|