动态生产控件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

审核流程如下：

此主题相关图片如下：审核流程.jpg

审核意见如下：

此主题相关图片如下：审核意见.jpg

生成控件部分代码如下：

Vars("text") = "日常费用支付管理"

'Vars("text") = Forms("主窗口").Controls("TabControl1").SelectedPage.text

Dim Filter As String

Filter = "[表名称] = '" & Vars("text") & "'"

Dim r As Row = Tables(Vars("text")).Current

If r IsNot Nothing Then

Dim dr As DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text") & "'")

If dr IsNot Nothing Then '如果找到的话

Dim dr1 As DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text") & "' And 审批状态 = '" & r("审批状态") & "'")

If dr1 IsNot Nothing Then '如果找到的话

Dim frm As WinForm.Form = e.Form

Dim i As Integer = 0

Dim ajm As List(of DataRow) = DataTables("审核流程管理").sqlS elect(Filter,"","流程编号") '用sql又排序就必须Top 可选参数,指定返回的行数

'绘制整个流程的图

For Each aj2 As DataRow In ajm

Dim aj As String = aj2("审核人角色") And

Dim abc As WinForm.Button

abc = frm.CreateControl(aj, ControlTypeEnum.Button)

Dim ds1 As DataRow = DataTables("审核意见表").SQLFind("表名称 = '" & Vars("text") & "' And 审核部门 = '" & aj & "' And ID = '" & r("ID") & "'")

Dim ds2 As DataRow = DataTables("审核意见表").SQLFind("表名称 = '" & Vars("text") & "' And 审核意见 = '提交申请' And ID = '" & r("ID") & "'")

If ds1 IsNot Nothing Then

abc.Text = aj & vbcrlf & ds1("审核日期") '控件名称

.......

此主题相关图片如下：审核进度.jpg

老师，我想审核进度窗口打开时，提交申请按钮也向第2个流程一样显示审核日期，审核日期 = 审核意见表中提交申请的日期，应该怎么修改呢，昨天调试一下午都没弄出来

[此贴子已经被作者于2024/3/15 9:39:54编辑过]

再请教老师，审核意见表中，审核部门没有提交申请，只有审核意见中有，应该怎么改？

Vars("text") = "日常费用支付管理"

'Vars("text") = Forms("主窗口").Controls("TabControl1").SelectedPage.text

Dim Filter As String

Filter = "[表名称] = '" & Vars("text") & "'"

Dim r As Row = Tables(Vars("text")).Current

If r IsNot Nothing Then

Dim dr As DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text") & "'")

If dr IsNot Nothing Then '如果找到的话

Dim dr1 As DataRow = DataTables("审核流程管理").SQLFind("表名称 = '" & Vars("text") & "' And 审批状态 = '" & r("审批状态") & "'")

If dr1 IsNot Nothing Then '如果找到的话

Dim frm As WinForm.Form = e.Form

Dim i As Integer = 0

Dim ajm As List(Of DataRow) = DataTables("审核意见表").sqlS elect("ID = '" & r("ID") & "'", "", "审核日期") '用sql又排序就必须Top 可选参数,指定返回的行数

'绘制整个流程的图

For Each aj2 As DataRow In ajm

Dim aj As String = aj2("审核部门")

Dim abc As WinForm.Button

abc = frm.CreateControl(aj, ControlTypeEnum.Button)

Dim ds1 As DataRow = DataTables("审核意见表").SQLFind("ID = '" & r("ID") & "'")

If ds1 IsNot Nothing Then

abc.Text = aj & vbcrlf & ds1("审核日期") '控件名称

截图在1楼，审核流程表中，第1个流程是任何人都可以提交申请，但是在审批移交表中，就不能用审核部门，只能通过审核意见是：提交申请查找，所以

Dim aj As String = aj2("审核部门") 就显示没法给提交申请赋值，第一流程提交申请就不能显示出来啊

老师，没改出来，请老师修改一下，完整代码如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:代码.txt

还是按照我第一个办法解决了，动态生成控件完成后，在判断abc.Text的名称，如果存在就改为：abc.Text = "提交申请" & vbcrlf & r("登记日期"），这样解决了

'为提交申请增加日期时间

If abc.Text = "提交申请" Then

abc.Text = "提交申请" & vbcrlf & r("登记日期")

abc.Height = 86 '控件高度

End If

此主题相关图片如下：未完成.jpg

此主题相关图片如下：完成.jpg

在请教一下老师，窗口的上面颜色怎么用代码修改

此主题相关图片如下：222222.jpg

主题：动态生产控件问题