Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]拒绝重复


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

主题：[求助]拒绝重复
帅哥哟，离线，有人找我吗？
大红袍
 小大  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/25 10:59:00 [只看该作者]

那就是你其余代码的问题。

 

做例子上来。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/28 10:30:00 [只看该作者]

老师，点击对话框确定按钮能关闭窗口和保存项目。谢谢


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/11/28 18:08:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/29 14:04:00 [只看该作者]

以下是引用江南小城在2015/11/28 10:30:00的发言：
老师，点击对话框确定按钮能关闭窗口和保存项目。谢谢


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/11/28 18:08:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/29 14:05:00 [只看该作者]

e.form.Close

Tables("表A").Save
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/20 14:15:00 [只看该作者]

老师，我在记录窗口、和父表中输入数据报错（找不到txtSale控件）在窗口绑定的文本框能输入数据是可以的

Dim txtBox As WinForm.TextBox
txtBox = e.Form.Controls("txtSale")
If txtBox.text <> "" Then
    txtBox.ReadOnly = BooleanEnum.True
Else
    txtBox.ReadOnly = BooleanEnum.Default
End If
[此贴子已经被作者于2015/12/20 14:20:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/20 14:28:00 [只看该作者]

1、代码写在什么事件？

 

2、直接写 Forms("xxx").Controls("txtSale")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/20 16:51:00 [只看该作者]

老师，代码在表事件中，StartEdit
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/20 16:57:00 [只看该作者]

直接写 Forms("xxx").Controls("txtSale")

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/20 21:32:00 [只看该作者]

老师，我这段代码有错吗？

图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看
Select Case e.DataCol.Name
    Case "出piao日期","总天数"
        If e.DataRow.IsNull("出piao日期") Then
            e.DataRow("兑现日期") = Nothing
        Else
            e.DataRow("兑现日期") = e.DataRow("出piao日期").AddDays(e.DataRow("总天数"))
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/20 21:38:00 [只看该作者]

Select Case e.DataCol.Name
    Case "出piao日期","总天数"
        If e.DataRow.IsNull("出piao日期") Then
            e.DataRow("兑现日期") = Nothing
        Else
            e.DataRow("兑现日期") = e.DataRow("出piao日期").AddDays(val(e.DataRow("总天数")))
        End If
End Select
 回到顶部
总数 71 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询