Foxtable(狐表)用户栏目专家坐堂 → 求助-表DataColChanged事件改按钮


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

主题:求助-表DataColChanged事件改按钮

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/1 17:10:00 [显示全部帖子]

dim r as row = tabels( “白塔泵人备注“).current
if r isnot nothing then
If r("泵人备注_年月").length = 6 Then 
    r("泵人备注_年") = r("泵人备注_年月").SubString(0, 4)
    r("泵人备注_月") = r("泵人备注_年月").SubString(4, 2)
Else
    r("泵人备注_年") = Nothing
    r("泵人备注_月") = Nothing
End If
end if

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/1 17:26:00 [显示全部帖子]

手误,tabels改为tables

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/2 17:28:00 [显示全部帖子]

改为遍历所有行处理:http://www.foxtable.com/webhelp/topics/1438.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/3 20:15:00 [显示全部帖子]

让您遍历,却去做什么选中列,选中再多的列,当前行都不会变的!

For Each r As Row In Tables("工作总表_Table5").Rows
   
    If r("泵人备注_年月").length = 6 Then 
        r("泵人备注_年") = r("泵人备注_年月").SubString(0, 4)
        r("泵人备注_月") = r("泵人备注_年月").SubString(4, 2)
    Else
        r("泵人备注_年") = Nothing
        r("泵人备注_月") = Nothing
    End If
Next

 回到顶部