Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码


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

主题：[求助]代码
帅哥哟，离线，有人找我吗？
czy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/8/15 19:02:00 [显示全部帖子]

想问下，你这个代码原来是放在哪的？

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/8/15 20:39:00 [显示全部帖子]

不知道你有没有必要要将重算所有行的代码放到StartEdit事件中，这样肯定很慢的

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/8/15 21:16:00 [显示全部帖子]

按钮的话直接这样就好了。

 

For Each r As Row In Tables("股piao交易明细").rows
    Dim ary() As String = r("时间").split(",")
    If ary.length > 1 Then
        r("日期") = ary(0)
        r("星期") = ary(1)
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询