dim tns() as string = {"table1","table2"}
for each tn as string in tns
Dim t As Table = e.form.controls(tn).Table
If t.Grid.Styles.Normal.Border.Color <> Color.DarkOrange Then
t.Grid.Styles.Normal.Border.Color = Color.Black
t.DataTable.SysStyles("CurrentRow").BackColor = color.GreenYellow
t.ListMode = True
End If
next
函数
dim tn as string = args(0)
Dim t As Table = e.form.controls(tn).Table
If t.Grid.Styles.Normal.Border.Color <> Color.DarkOrange Then
t.Grid.Styles.Normal.Border.Color = Color.Black
t.DataTable.SysStyles("CurrentRow").BackColor = color.GreenYellow
t.ListMode = True
End If
调用
dim tns() as string = {"table1","table2"}
for each tn as string in tns
Functions.Execute("ys",tn)
next
加好友 
发短信
Post By：2019/7/30 9:09:00 [显示全部帖子]
