录入凭证设计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8899人关注过本帖树形打印复制链接主题：录入凭证设计

有点蓝

小大 71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/27 13:48:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1438.htm

采菊东篱下

小大 72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/27 13:59:00 [只看该作者]

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

采菊东篱下

小大 73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：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

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：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("缴费_月租_月租单价")

End If

[此贴子已经被作者于2021/1/27 14:30:14编辑过]

采菊东篱下

小大 76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：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("缴费_月租_月租单价")

End If

有点蓝

小大 77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：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

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/1/27 16:30:00 [只看该作者]

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

有点蓝

小大 79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/1/27 16:49:00 [只看该作者]

没看懂

采菊东篱下

小大 80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：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 下一页

主题：录入凭证设计