以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]像这样的代码，有没有简化的写法，这种写法好啰嗦！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127850)
--  作者：lunengcheng
--  发布时间：2018/11/23 14:41:00
--  [求助]像这样的代码，有没有简化的写法，这种写法好啰嗦！
各位老师前辈，请教一下，像下面的这段代码，有没有办法简化写法，希望能指点一下，多谢了？

Dim t As Table = Tables(e.form.name & "_Table1")
t.Cols("审批状态").TextAlign = TextAlignEnum.Center
t.Cols("单据状态").TextAlign = TextAlignEnum.Center
t.Cols("预约通知").TextAlign = TextAlignEnum.Center
t.Cols("预约状态").TextAlign = TextAlignEnum.Center
t.Cols("赴约状态").TextAlign = TextAlignEnum.Center
t.Cols("预约次数").TextAlign = TextAlignEnum.Center
t.Cols("面试结果告知").TextAlign = TextAlignEnum.Center
t.Cols("面试进度").TextAlign = TextAlignEnum.Center
t.Cols("面试评级").TextAlign = TextAlignEnum.Center
t.Cols("试用建议").TextAlign = TextAlignEnum.Center
t.Cols("面试次数").TextAlign = TextAlignEnum.Center
[此贴子已经被作者于2018/11/24 17:17:18编辑过]
--  作者：有点甜
--  发布时间：2018/11/23 15:14:00
--  
Dim cs() = {"第一列", "第二列", "第三列"}
Dim t As Table = Tables(e.form.name & "_Table1")
For Each c As String In cs
    t.Cols(c).TextAlign  = TextAlignEnum.Center
Next
--  作者：lunengcheng
--  发布时间：2018/11/23 15:49:00
--  
多谢老师，这个代码好用，在请教一下，下面这段代码是否可用简化，这里一个相同的变量定义了四次，从一个相同的表检索了四次，觉得不是很合理？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:待简化代码.txt


[此贴子已经被作者于2018/11/23 15:51:31编辑过]
--  作者：有点甜
--  发布时间：2018/11/23 16:08:00
--  
Select Case e.DataCol.name
    Case "面试结果告知", "面试进度", "面试评级", "试用建议"
        Dim bh5 As String = e.DataRow("编号")
        Dim ld5 As String
        Dim cmd5 As New SQLCommand
        cmd5.ConnectionName = "主数据源"
        cmd5.CommandText = "Select top 1 " & e.DataCol.name & " From {YW_面试管理面试记录} Where 编号 = \'" & bh5 & "\' Order  by 创建时间  Desc"
        ld5 = cmd5.ExecuteScalar()
        If ld5 <> Nothing Then
            e.DataRow(e.DataCol.name) = ld5
        End If
End Select
--  作者：lunengcheng
--  发布时间：2018/11/23 16:23:00
--  
代码可用，多谢老师！