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


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

主题:[求助]录入

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2022/11/18 13:24:00 [只看该作者]

做个克隆按钮,用的是帮助中的代码:
If CurrentTable.Current IsNot Nothing Then
    CurrentTable
.Current.Clone
End
If

点该按钮后,想清空窗口绑定表某些单元格的内容,应该如何加代码?

 回到顶部
帅哥,在线噢!
有点蓝
  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106016 积分:539167 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/18 13:32:00 [只看该作者]

dim r as row = CurrentTable.Current.Clone
r("第一列") = nothing

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/3/30 12:33:00 [只看该作者]

DataTables("表A").ReplaceFor("日期", e.Form.Controls("DateTimePicker1").text, Tables("表A").Filter)

是按钮代码,当
DateTimePicker1为空时,执行错误:提示从字符串“”到类型“Date”的转换无效,如何修改?
[此贴子已经被作者于2023/3/30 12:32:57编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106016 积分:539167 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/30 13:33:00 [只看该作者]

加个判断,控件有值再执行代码

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/1/24 23:36:00 [只看该作者]

老师好!窗口1有Table1统计表(已实现统计功能)及ComboBox,在有了统计结果后,想实现:鼠标选中该统计表的某一单元格时,ComboBox1显示该单元格内容,这个代码老师有空帮写下行不?

 回到顶部
帅哥,在线噢!
有点蓝
  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106016 积分:539167 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/25 8:38:00 [只看该作者]

表格click事件

e.form.controls("ComboBox1").text = e.row(e.col.name)

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/1/25 14:34:00 [只看该作者]

若:选中该行,该行相关单元格内容填写到相对应的ComboBox1、ComboBox2.......,代码是怎样的呢?

 回到顶部
帅哥,在线噢!
有点蓝
  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106016 积分:539167 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/25 14:41:00 [只看该作者]

和上面一样的用法,改为不同列即可
e.form.controls("ComboBox1").text = e.row(a列)
e.form.controls("ComboBox2").text = e.row(b列

 回到顶部
总数 48 上一页 1 2 3 4 5