以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 图片列一插入图片FOXTABLE就全部关闭退出 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83908) |
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 15:55:00 -- 图片列一插入图片FOXTABLE就全部关闭退出 备注列拓展为 图片类型,一旦插入图片FOXTALBE就强制退出了。 重新进入,再插入图片还是一样 请问是哪里出了问题,该怎么办呢
|
-- 作者:大红袍 -- 发布时间:2016/4/19 15:57:00 -- 你的datacolchanged事件编写有问题
http://www.foxtable.com/help/topics/1522.htm
|
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 16:09:00 -- 我还没有看到 代码和编程。现在就想先用表里的 备注拓展为图片类型来方便管理图片。变成方面我不懂,也不知道datacolchanged事件在哪里编写,有其他什么办法解决吗 |
-- 作者:大红袍 -- 发布时间:2016/4/19 16:14:00 -- 以下是引用HAPPYMONKEY在2016/4/19 16:09:00的发言:
我还没有看到 代码和编程。现在就想先用表里的 备注拓展为图片类型来方便管理图片。变成方面我不懂,也不知道datacolchanged事件在哪里编写,有其他什么办法解决吗
不可能插入图片就退出的。
你看看你有没有写什么事件代码 http://www.foxtable.com/help/topics/1445.htm
|
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 16:32:00 -- 在表属性的 CELLbuttonclick 设置了几句代码 此主题相关图片如下:ffff.jpg |
-- 作者:大红袍 -- 发布时间:2016/4/19 16:34:00 -- 把你做的项目发上来看看。 |
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 16:37:00 -- 当时需要用到 模糊输入,所以参考了这章设置了代码。运行正常,效果也不错。今天的图片就无法插入了 http://www.foxtable.com/help/index.html?n=1445.htm
|
-- 作者:大红袍 -- 发布时间:2016/4/19 16:43:00 -- 以下是引用大红袍在2016/4/19 16:34:00的发言:
把你做的项目发上来看看。
或者贴出对应代码。 |
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 16:46:00 -- CellButtonClick |
-- 作者:HAPPYMONKEY -- 发布时间:2016/4/19 16:52:00 -- 有3个地方设置了代码-- 1--CellButtonClick 代码: If e.Col.Name = "YP供应商编号" Then e.Cancel = True Forms("GY供应商信息选取").Open() End If 2--在新建窗口--GY供应商信息选取,设置了事件代码Textchanged: Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("GY供应商信息选取_Table1") If txt = "" Then tbl.Filter = "" Else txt = "\'%" & txt & "%\'" tbl.Filter = "GY供应商编号 Like " & txt & " Or GY供应商全称 Like " & txt & " Or GY供应商简码 Like " & txt End If 3---在新建窗口--GY供应商信息选取,设置了事件代码 Keydown: Dim tbl As Table = Tables("GY供应商信息选取_Table1") If e.KeyCode = Keys.Up Then tbl.Position = tbl.Position - 1 e.Cancel = True ElseIf e.KeyCode = Keys.Down Then tbl.Position = tbl.Position + 1 e.Cancel = True ElseIf e.KeyCode = Keys.Enter Then If tbl.Current IsNot Nothing Then Tables("YP样品信息表").Current("YP供应商编号") = tbl.Current("GY供应商编号") End If e.Cancel = True e.Form.Close() End If |