Dim lms As String = "工作|物品|账号|其它"
Dim lst As new List(of String)
lst.AddRange(lms.split("|"))
If lst.Contains(e.DataCol.Name & "交接")
Dim cmd As New SQLCommand
cmd.ConnectionName = "主数据源"
cmd.CommandText = "S elect Count(*) From {YW_人事交接" & e.DataCol.Name & "交接} Where 编号 = '" & e.DataRow("编号") & "'"
e.DataRow(e.DataCol.Name & "交接")= cmd.ExecuteScalar()
End If
[此贴子已经被作者于2018/12/10 12:31:02编辑过]