Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在保存按钮如何实现在录入或替换窗口时间控间上的时间


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

主题：在保存按钮如何实现在录入或替换窗口时间控间上的时间
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 16:08:00 [显示全部帖子]

Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
        Dim di1 As String = qsmc.Value
        Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
        Dim di2 As String = m.Value
        Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")
if bsrq.text ="" then
msgbox("请选择日期")
return
end if
        Dim di3 As Date = bsrq.Value
        Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
        Dim Str As String = fz.Value
        For Each nr As Row In Tables("综合组").Rows
            Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "'")
            dr("日期") = di3
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 16:46:00 [显示全部帖子]

Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
        Dim di1 As String = qsmc.Value
        Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
        Dim di2 As String = m.Value
        Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")

        Dim di3 As Date = bsrq.Value
        Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
        Dim Str As String = fz.Value
        For Each nr As Row In Tables("综合组").Rows
            Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "'")
if di3 <> nothing then
dr("日期") = di3
end if
            
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 20:01:00 [显示全部帖子]

if di3 <> nothing then绝对不可能有问题，有也是其他地方的问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 20:04:00 [显示全部帖子]

没有判断SQLfind返回的结果是否有值

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 20:31:00 [显示全部帖子]

那就补上。程序运行往往未必和表面看到的结果一致

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 20:35:00 [显示全部帖子]

看哪一句代码出错：http://www.foxtable.com/webhelp/topics/1485.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/2 21:16:00 [显示全部帖子]

都已经使用了，再判断有什么用
            If dr IsNot Nothing Then
           If di3 <> Nothing Then
                dr("日期") = di3
            End If

                dr("桌号") = nr("桌号")
                dr("红黑方") = "红方"
                dr("积分") = nr("当前局成绩_红方")
                dr.Save
            End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/9 14:22:00 [显示全部帖子]

同事件其它代码影响，有2段【 Case "保存"】

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询