Foxtable(狐表) → 用户栏目 → 专家坐堂 → 基础问题


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

主题：基础问题
帅哥哟，离线，有人找我吗？
wuchangke4
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		基础问题  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
wuchangke4
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		  发帖心情 Post By：2018/7/18 14:17:00 [显示全部帖子]

Dim r As Row = Tables("表A").current
这一句是否有了局限，如果一个项目里有十个表需要用这个功能组件呢？
 回到顶部
帅哥哟，离线，有人找我吗？
wuchangke4
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		  发帖心情 Post By：2018/7/18 14:48:00 [显示全部帖子]

如果需要列Lwg和列Gy一次性完成整列统计，不要一行一行的，可以实现吗？

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


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		  发帖心情 Post By：2018/7/18 16:06:00 [显示全部帖子]

Dim skdt As DataTable = DataTables("表A")
这个表A是否又具有局限性了？
 回到顶部
帅哥哟，离线，有人找我吗？
wuchangke4
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		  发帖心情 Post By：2018/7/18 16:54:00 [显示全部帖子]


Dim skdt As DataTable = DataTables("表A")改为


 Dim skdt As DataTable =currenttable.DataTable 
会有影响吗？
 回到顶部
帅哥哟，离线，有人找我吗？
wuchangke4
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：286 威望：0 精华：0 注册：2018/7/8 7:44:00 		  发帖心情 Post By：2018/7/19 14:49:00 [显示全部帖子]

 如果要实现当右击Lwg或Gyg这两列中的任意一列的单元格时，显示快捷菜单，如何设置代码？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询