动态生产控件问题 - 专家坐堂 - 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编辑过]

主题：动态生产控件问题