- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 如何控制控件录入内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59295)
-- 发布时间：2014/11/1 14:51:00
-- [求助] 如何控制控件录入内容
1、使用什么命令可以控制某控件录入的内容 必须 在下拉的列表项目中存在的内容；如果没有则弹出提示？
2、使用什么命令可以实现当点击某个单元格时、会出现说明内容？
[此贴子已经被作者于2014-11-1 14:51:15编辑过]
-- 发布时间：2014/11/1 15:15:00
--
1 http://www.foxtable.com/help/topics/2263.htm
-- 发布时间：2014/11/1 15:30:00
--
我想实现当点击“表A”的‘联系人’单元格时；显示出 “表B”中 联系人 与“表A”中 联系人相同的 ‘联系电话‘ （显示动态提示信息）；命令该怎么写？
表A：
联系人
甲
乙
丙
表B
联系人 联系电话
甲 11111
乙 2345
丙 3333
-- 发布时间：2014/11/2 10:08:00
--
例子发上来。
-- 发布时间：2017/2/26 14:39:00
--
此主题相关图片如下：360截图20170226143825383.jpg
此主题相关图片如下：360截图20170226143856483.jpg
-- 发布时间：2017/2/26 15:01:00
--
dataformat事件写代码
e.Value = e.value.Replace(chr(10), vbcrlf)
如果还不行，上传实例说明。
-- 发布时间：2017/2/26 15:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/2/26 17:30:00
--
同一处理一下数据
For Each r As Row in Tables("表a").rows
r("第二列") = r("第二列").replace(vbcrlf, chr(10)).replace(chr(13), "").replace(chr(10), vbcrlf)
Next
-- 发布时间：2017/2/28 18:23:00
--
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
For Each r As Row In Tables("未装机回访表").Rows
If r.IsNull("派单日期") Then
r("等待装机时长") = Nothing
Else
Dim tp As TimeSpan
tp = r("派单日期") - dt
r("等待装机时长") = tp.TotalSeconds() \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
此主题相关图片如下：360截图20170228182318228.jpg
-- 发布时间：2017/2/28 20:17:00
--
tp = cdate(r("派单日期")) - dt