主题：审批流程设计相关

使用上没什么问题，主要是在设计流程时，这样有点点不方便。

流程1是提交的状态，流程2是一级审核人及审核后的状态。

这样好像不太方便

老师，想根据审核流程表，动态生成这样的流程图？每个流程不一样，写成通用的请老师空的时候帮忙写一下，谢谢！我这个是全代码写，不通用。

此主题相关图片如下：qq截图20200324101327.png

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim fnt As New Font("宋体",10)
Dim msg As String = "1"
g.DrawString(msg,fnt,Brushes.Red,33,24)  '审批流程编号
g.DrawEllipse(Pens.Blue,28,20,20,20)  '左,上

Dim g1 As Graphics = p.Graphics
Dim fnt1 As New Font("宋体",10)
Dim msg1 As String = "提交申请"
g1.DrawString(msg1,fnt,Brushes.Black,10,45)  'l

Dim g2 As Graphics = p.Graphics
g2.DrawLine(Pens.Black,60,30,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上
g2.DrawLine(Pens.Black,110,25,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上
g2.DrawLine(Pens.Black,110,35,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上

Dim g3 As Graphics = p.Graphics
Dim fnt3 As New Font("宋体",10)
Dim msg3 As String = "2"
g3.DrawString(msg3,fnt,Brushes.Red,136,24)  'x距左 ,y起点距上
g3.DrawEllipse(Pens.Blue,132,20,20,20)  'x起点距左,y起点距上,x圆半径,y圆半径

Dim g4 As Graphics = p.Graphics
Dim fnt4 As New Font("宋体",10)
Dim msg4 As String = "财务部制单"
g4.DrawString(msg4,fnt,Brushes.Black,107,45)  'x距起点,y距上 

p.Repaint()

审核流程表结构如下：

老师流程和流程间的距离怎么来控制写成通用的呢，还麻烦老师写一个

再麻烦老师写写这个，我删除一个中间流程，本表的流程编号后面的自动减1

比如我删除6，后面的7边为6，删除5,6改成5,7改成6

此主题相关图片如下：55555555555.png

老师，我用Select时没问题，用sqlSelect删除后保存，然后在加载，审核流程表中的流程编号也没修改过来呢，是什么问题？

Dim dr1 As Row =   Tables(vars("editTable")).Current
Dim drs As List(Of DataRow) = DataTables(vars("editTable")).sqlSelect("表名称 = '"& dr1("表名称") & "'","流程编号")
For i As Integer = 0 To drs.count -1
    drs(i)("流程编号") = i+1
Next
DataTables(vars("editTable")).Save
DataTables(vars("editTable")).load