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 [只看该作者]

  我是双击缴费情况表弹出窗口,然后通过窗口把缴费情况表中当前行单号相同的行显示到弹窗上的,就象ERP中双击账上的行,弹出当前录入凭证,因此定义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 下一页