Foxtable(狐表) → 用户栏目 → 专家坐堂 → 使用记录窗口输入新数据


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

主题：使用记录窗口输入新数据
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 16:22:00 [显示全部帖子]

如果是为了设置下拉项目，这个代码不会有问题。

最简洁地设计方式就是花钱找个人替您做，不然还是老老实实动手吧
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 16:42:00 [显示全部帖子]

e.Col.combolist = DataTables("合同信息").SQLGetComboListString("合同名称","项目名称 = '" & e.row("项目名称") & "'")

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


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 17:09:00 [显示全部帖子]

if判断没有任何用处，去掉

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


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 17:16:00 [显示全部帖子]

这种到datacolchanged事件处理

Select Case e.dataCol.name
    Case "项目名称"
        if DataTables("合同信息").find("项目名称 = '" & e.dataRow("项目名称")  & "'") is nothing then
e.dataRow("列1") = nothing 
e.dataRow("列2") = nothing 
……
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 17:25:00 [显示全部帖子]

给指定列设置空值

e.dataRow("列1") = nothing 

不要使用e.DataRow.Reject
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/11 20:51:00 [显示全部帖子]

 Case "合同名称"
        Dim dr2 As DataRow = DataTables("合同信息").SQLFind("合同名称 = '" & e.NewValue & "'")
        If dr2 Is Nothing Then '如果新值是空白
            Dim sts() As String = {"付款单位","收款单位","合同金额","合同编号","税率","收款_开户名","收款_银行账号","收款_开户银行","收款_银行行号"}
            For Each st As String In sts
                e.datarow(st) = Nothing
            Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询