Foxtable(狐表) → 用户栏目 → 专家坐堂 → 录入凭证设计


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

主题：录入凭证设计
帅哥哟，离线，有人找我吗？
有点蓝
 小大  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/12 13:43:00 [只看该作者]

要两个条件同时并存，find查询添加多一个单号条件咯

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/12 14:38:00 [只看该作者]

行了
'一.数据录入:
Select Case e.StripItem.Name
    Case "保存" '保存代码
        If e.Form.Controls("rq").text = "" Then
            messagebox.show("请选择日期")
            Return
        ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then
            Return
        Else
            For Each dt As DataRow In DataTables("月租收费_Table1").Select("[车牌号码] is not null")
                Dim r As DataRow = DataTables("缴费情况").Find("[车牌号码] = '" & dt("车牌号码") & "'And [单号] = '" & e.Form.Controls("dh").text & "'")
                If r Is Nothing Then
                    r = DataTables("缴费情况").addnew
                    r("日期") = e.Form.Controls("rq").text
                    r("单号") = e.Form.Controls("dh").text
                    r("车牌号码") = dt("车牌号码")
                    r("备注") = dt("备注")
                    r("前缀") = "yz"
                    r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
                    r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
                    r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
                    r("录入员") = e.Form.Controls("lry").text
                End If
            Next
        End If
        DataTables("缴费情况").Save()
    Case "取消" '取消代码
        e.Form.Close()
    Case "删除" '删除代码
        e.Form.Close()
        DataTables("缴费情况").DeleteFor("[单号] =" & "'" & e.Form.Controls("dh") .text & "'")
End Select

[此贴子已经被作者于2021/1/13 21:07:55编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/27 10:54:00 [只看该作者]

双击缴费情况表行，弹出月租收费窗口，并显示当前行单据，我在DoubleClick事件中这样写报错，窗口里没任何数据显示。

图片点击可在新窗口打开查看此主题相关图片如下：012701.png
图片点击可在新窗口打开查看
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
    Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
    Forms("月租收费").Open()
    'For Each dt As DataRow In DataTables("缴费情况").Select("[车牌号码] = '" & e.DataRow("车牌号码") & "'And [单号] = '" & e.DataRow("单号") & "'")
    Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRows
    Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[车牌号码] = '" & e.Row("车牌号码") & "'And [单号] = '" & e.Row("单号") & "'")
    r("车牌号码") = dts("车牌号码")
    r("备注") = dts("备注")
    r("缴费_月租_起计日期") = dts("缴费_月租_起计日期")
    r("缴费_月租_止计日期") = dts("缴费_月租_止计日期")
    r("缴费_月租_月租单价") = dts("缴费_月租_月租单价")
    Forms("月租收费").Controls("rq").text = e.Row("日期")
    Forms("月租收费").Controls("dh").text = e.Row("单号")
    Forms("月租收费").Controls("lry").text = e.Row("录入员")
    Forms("月租收费").Controls("shr").text = e.Row("审核人")
    'Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/27 11:03:00 [只看该作者]

DataRows是一个集合，不是一行，SQLSelect返回也也是一个集合，而不是只一行

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/27 11:29:00 [只看该作者]

这样写也报错啊
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
    Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
    Forms("月租收费").Open()
    Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRow
    Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[车牌号码] = '" & e.Row("车牌号码") & "'And [单号] = '" & e.Row("单号") & "'")
    For Each dt As DataRow In dts
        r("车牌号码") = dt("车牌号码")
        r("备注") = dt("备注")
        r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
        r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
        r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
        Forms("月租收费").Controls("rq").text = e.Row("日期")
        Forms("月租收费").Controls("dh").text = e.Row("单号")
        Forms("月租收费").Controls("lry").text = e.Row("录入员")
        Forms("月租收费").Controls("shr").text = e.Row("审核人")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/27 11:33:00 [只看该作者]

Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.current.DataRow

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/27 11:34:00 [只看该作者]

这样写也错
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
    Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
    Forms("月租收费").Open()
    Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRow
    'Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[车牌号码] = '" & e.Row("车牌号码") & "'And [单号] = '" & e.Row("单号") & "'")
    'For Each dt As DataRow In dts
    Dim dt As DataRow = DataTables("缴费情况").SQLfind("[车牌号码] = '" & e.Row("车牌号码") & "'And [单号] = '" & e.Row("单号") & "'")
    r("车牌号码") = dt("车牌号码")
    r("备注") = dt("备注")
    r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
    r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
    r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
    Forms("月租收费").Controls("rq").text = e.Row("日期")
    Forms("月租收费").Controls("dh").text = e.Row("单号")
    Forms("月租收费").Controls("lry").text = e.Row("录入员")
    Forms("月租收费").Controls("shr").text = e.Row("审核人")
    'Next
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/27 12:05:00 [只看该作者]

你的代码是当前行，我想显示整张单的所有数据，这样写报错：
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
    Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
    Forms("月租收费").Open()
    Forms("月租收费").Controls("rq").text = e.Row("日期")
    Forms("月租收费").Controls("dh").text = e.Row("单号")
    Forms("月租收费").Controls("lry").text = e.Row("录入员")
    Forms("月租收费").Controls("shr").text = e.Row("审核人")
    Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & e.Row("单号") & "'")
    For i As Integer = 0 To dts.count - 1
    Dim r As Row = Forms("月租收费").Controls("Table1").Table.Row
        r("车牌号码") = dts(i)("车牌号码")
        r("备注") = dts(i)("备注")
        r("缴费_月租_起计日期") = dts(i)("缴费_月租_起计日期")
        r("缴费_月租_止计日期") = dts(i)("缴费_月租_止计日期")
        r("缴费_月租_月租单价") = dts(i)("缴费_月租_月租单价")
        i + = 1
    Next
End If
[此贴子已经被作者于2021/1/27 13:35:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/27 13:32:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/1/27 13:41:00 [只看该作者]

定义窗口表中的行怎么写啊？应该是红色代码错了。
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
    Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
    Forms("月租收费").Open()
    Forms("月租收费").Controls("rq").text = e.Row("日期")
    Forms("月租收费").Controls("dh").text = e.Row("单号")
    Forms("月租收费").Controls("lry").text = e.Row("录入员")
    Forms("月租收费").Controls("shr").text = e.Row("审核人")
    Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & e.Row("单号") & "'")
    For i As Integer = 0 To dts.count - 1
    Dim r As Row = Forms("月租收费").Controls("Table1").Table.Row
        r("车牌号码") = dts(i)("车牌号码")
        r("备注") = dts(i)("备注")
        r("缴费_月租_起计日期") = dts(i)("缴费_月租_起计日期")
        r("缴费_月租_止计日期") = dts(i)("缴费_月租_止计日期")
        r("缴费_月租_月租单价") = dts(i)("缴费_月租_月租单价")
        i + = 1
    Next
End If
 回到顶部
总数 81 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询