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


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

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


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


 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你给我的连接是表中的行怎么定义，我问的是之窗口中动态加载的表行的定义，感觉在这概念下有点晕！

 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

昨晚问你窗口中的长时间格式表示，你给我加了红色代码，
e.Form.Controls("Table1").Table.DataTable.dataCols("缴费_临时停放_起计时间").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
e.Form.Controls("Table1").Table.DataTable.dataCols("缴费_临时停放_止计时间").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
现在我又遇到窗口中的动态加载表定义行要加红色代码吗？
是不是：
Dim r As dataRow = e.Form.Controls("Table1").Table.DataTable.dataRow
[此贴子已经被作者于2021/1/27 14:07:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

死脑筋，没办法

For Each r As Row In Tables("订单").Rows
  对每一行的处理
Next

For Each dr As DataRow In DataTables("订单").DataRows
   对每一行的处理
Next
 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

安照你的方法依然报错

图片点击可在新窗口打开查看此主题相关图片如下：012702.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()
    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 r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRow
    Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & e.Row("单号") & "'")
    For Each dt As DataRow In dts
        r("车牌号码") = dt("车牌号码")
        r("备注") = dt("备注")
        r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
        r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
        r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
    Next
End If
[此贴子已经被作者于2021/1/27 14:30:14编辑过]
 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

　　我是双击缴费情况表弹出窗口，然后通过窗口把缴费情况表中当前行单号相同的行显示到弹窗上的，就象ＥＲＰ中双击账上的行，弹出当前录入凭证，因此定义dts行集合没错，因为只引用这部份行，现在的问题就是如何定义弹出的窗口中的行，然后赋值，错误应该就出在这，你给出的
Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.current.DataRow
能正确显示一行，显然不能只定义当前行，而应定义所有行，我一直问的就是这个。
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 Each dt As DataRow In dts
　 Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.current.DataRow
    'Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRow
        r("车牌号码") = dt("车牌号码")
        r("备注") = dt("备注")
        r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
        r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
        r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

无语

for each r As Row in Forms("月租收费").Controls("Table1").Table.Rows
 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

月租收费表是空表，怎能这样定义？

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


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

没看懂

 回到顶部
美女呀，在线，快来找我吧！
采菊东篱下
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：704 积分：3907 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/5 17:10:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理20210304.foxdb

密码：888888
原来的设计单号在打开月租收费窗口后根本当前日期自动生成，现我改为单号根据选择的日期后自动生成，代码剪切到日期控件下的ValueChanged事件，能保存，担选择日期后报错，请教应如何改？
'以这代码为准:
Dim yzdh As WinForm.TextBox = e.Form.Controls("dh")'dh是单号控件
Dim di As String = yzdh.Value 'di单号控件中的变量
If e.Form.Controls("rq").value IsNot Nothing Then
    Dim d As Date  = e.Form.Controls("rq")
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1) '获得该月的第一天
    Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
    Dim bh As String = "yz" & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀
    Dim max As String
    Dim idx As Integer
    Dim flt As String
    flt = "[前缀] = 'yz' And [日期] >= #" & fd & "# And [日期] <= #" & ld & "#"
    max = DataTables("缴费情况").Compute("Max(单号)",flt) '取得该月的相同工程代码的最大单据编号
    If max > "" Then '如果存在最大单据编号
        idx = CInt(max.Substring(10,5)) + 1 '获得最大单据编号的后四位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    di = bh & Format(idx,"00000")
    yzdh.Value = di
End If
[此贴子已经被作者于2021/3/5 19:22:47编辑过]
 回到顶部
总数 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.04688 秒, 5 次数据查询